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Abstract 


Adaptive  Design  or  prototyping  has  been  suggested  as  an 
effective  approach  for  developing  and  implementing  computer- 
based  decision  support  systems  (DSS) .  The  literature  on  DSS 
has  also  shown  that  adaptive  design  improves  user  involve¬ 
ment  and  satisfaction.  This  thesis  attempts  to  follow  the 
adaptive  design  approach  to  design  and  implements  a  data- 
oriented  DSS  —  the  NPS  Department  of  Administrative  Scien¬ 
ces  (AS)  Dataoase  Reporting  System.  The  development  of  the 
AS  Reporting  System  has  helped  review  the  adaptive  design 
strategy.  The  following  findings  were  derived: 

-  Close  participation  between  end  user(s)  and  the  system 
builder  helps  to  clarify  proolem  issues. 

-  Frequent  orief  interactions  between  end  user  and 
system  developer  provide  more  immediate  and  better 
defined  response,  resulting  in  a  more  effective  proto¬ 
type. 

-  Unstructured  initial  planning  sessions  involving  the 
end  user  and  the  system  ouilder  could  distract  the  end 
user  from  the  definition  of  important  initial  require¬ 
ments.  A  more  structured,  issue-oriented  approacn 
results  in  more  timely  and  clearly  defined  require¬ 
ments  . 

-  User  feedback  is  less  intense  and  critical  towards  the 
final  phase  of  the  development  process. 

-  Prototyping  is  cost-effective,  at  least  for  the  first 
phases  of  system  ennancements . 

-  Prototypes  are  disposable  systems. 


4 


TABLE  OF  CONTENTS 


Page 

I.  INTRODUCTION  -  5 

II.  THE  ADAPTIVE  DESIGN  APPROACH  TO  DSS  DEVELOPMENT  3 

A.  WHAT  IS  ADAPTIVE  DESIGN? -  3 

B.  CHARACTERISTICS  OF  ADAPTIVE  OR  EVOLUTIONARY 

DESIGN  -  9 

C.  A  MODEL  FOR  PROTOTYPING  OR  ADAPTIVE  DESIGN-  10 

III.  THE  AS  DATA3ASE  REPORTING  SYSTEM -  12 

A.  BACKGROUND -  12 

3.  METHODOLOGY:  THE  "DIARY  APPROACH"  -  13 

C.  THE  EVOLUTION  OF  THE  AS  REPORTING  SYSTEM 

ARCHITECTURE  -  17 

IV.  RESULTS  AND  DISCUSSION -  21 

A.  SOME  OBSERVATIONS  ON  THE  EXPERIMENT  -  21 

B.  RECOMMENDATIONS  FOR  FUTURE  EXTENSIONS  -  23 

V.  CONCLUSIONS -  25 

VI.  APPENDIXES -  23 

A.  AS  DATA  3ASE  REPORTING  SYSTEM  USER'S  MANUAL  23 

3.  DIAGRAM  OF  THE  AS  SYSTEM'S  MENUS -  53 

C.  AS  SYSTEM'S  MENUS -  55 

D.  SAMPLE  AS  SYSTEM  REPORTS -  7  2 

E.  AS  DATA  BASE  REPORTING  SYSTEM  PROGRAMMER'S 

MANUAL -  77 

F.  DATA  FLOW  DIAGRAMS -  91 

G.  STRUCTURE  CHARTS  -  93 

H.  DATA  DICTIONARY -  114 

I.  PROGRAM  LISTINGS  -  134 

J.  LIST  OF  TABLES  -  135 

VII.  LIST  OF  REFERENCES -  207 

VIII.  3 13L IOGRAPHY -  208 


5 


I.  INTRODUCTION 


The  purpose  of  this  thesis  is  twofold.  First,  it  de¬ 
signs,  develops  and  implements  a  data-oriented  financial 
decision  support  system  for  the  Department  of  Administrative 
Sciences  (AS)  of  the  U.S.  Naval  Postgraduate  School  —  the 
AS  Dataoase  Reporting  System.  Second,  throughout  the  deve¬ 
lopment  of  the  system,  this  thesis  seeks  to  derive  some 
observations  on  the  effectiveness  of  the  adaptive,  or  proto¬ 
typing,  approach  in  building  an  end  user-oriented  computer¬ 
ized  decision  support  system. 

There  are  at  least  two  factors  that  have  motivated  this 
thesis.  First,  the  increasing  need  of  managing  complex 
financial  data  within  the  Administrative  Sciences  Department 
has  triggered  interest  among  the  department  managers  to 
automate  their  financial  system.  A  computerized  system  is 
expected  to  provide  accurate  and  timely  information  han¬ 
dling.  It  can  also  generate  fast  and  standardized  reports 
which  are  prohioitively  laoor  intensive  if  done  with  the 
manual  system. 

Second,  the  literature  on  Decision  Support  Systems  (DSS) 
often  advocates  tnat  the  traditional  approach  for  developing 
a  data  processing  system  is  not  appropriate  for  prototyping. 
In  fact,  a  conventional  development  life-cycle  consists  of 
eight  phases.  These  include:  system  feasibility,  software 
plans  and  requirements,  product  design,  detailed  design, 
code,  integration,  implementation  and  operations  and  main¬ 
tenance  (Ref.  1],  Such  an  approach  requires  full  knowledge 
of  the  nature  of  the  proolem.  Furthermore,  it  has  revealed 
to  be  costly  in  time  and  effort.  Since  DSS  requirements 
constantly  change  during  the  development  process,  using  the 
traditional  life-cycle  model  can  be  risky. 


This  thesis  is  organized  as  follows.  Chapter  II  dis¬ 
cusses  the  adaptive  design  approach  to  DSS  development. 
Characteristics  of  the  prototyping  approach  are  addressed. 
Also,  the  model  for  prototyping  is  presented.  Chapter  III 
gives  an  account  of  the  prototyping  experiment  with  the  AS 
Database  Reporting  System.  The  "diary  approach"  is  adopted 
to  record  the  evolution  of  the  system  architecture  from  the 
user  interaction  perspective.  Chapter  IV  discusses  some 
observations  based  on  the  prototyping  experiment  and  pro¬ 
vides  suggestions  for  possible  future  extensions  of  the 
proposed  system. 

Three  phases  of  iterative  design  are  examined.  Techni¬ 
cal  reports  on  the  AS  Database  Reporting  System  are  describ¬ 
ed  in  the  appendices.  Appendix  A  reproduces  the  user's 
manual.  It  provides  instructions  for  the  casual  users. 
Diagrams  of  the  system  interface,  reproduction  of  the  system 
menus,  and  sample  hard  copy  reports  are  respectively  given 
in  Appendices  B,  C  and  D.  Appendix  E  contains  detailed 
technical  instructions  intended  for  the  database  administra¬ 
tor  and  the  system  programmer.  Data  Flow  Diagrams,  struc¬ 
tured  charts,  a  data  dictionary,  program  listings  and  lists 
of  tables  are  respectively  given  in  Appendices  F,  G,  H,  I 
and  J . 


II.  THS  ADAPTIVE  DESIGN  APPROACH  TO  DS5  DEVELOPMENT 


A.  WHAT  IS  ADAPTIVE  DESIGN? 

Conventional  design  strategy  in  data  processing  systems 
invariably  assumes  that  the  requirements  of  the  system  can, 
and  should,  be  determined  prior  to  the  implementation  of  the 
system.  This  requirements  analysis  can  be  achieved  by  per¬ 
forming  logical  analysis  and  investigation  of  user  informa¬ 
tion  processing  needs  and  behavior  [Ref.  2].  For  instance, 
the  requirements  for  an  accounting  system  could  be  determin¬ 
ed  oy  examining  accounting  procedures  and  interviewing 
competent  accountants. 

However,  such  a  procedure  cannot  be  applied  to  building 
a  DSS.  A  DSS  can  be  defined  as  a  computer-oased  system  that 
helps  its  user(s)  in  solving  ill-defined  or  unstructured 
decisions.  As  a  consequence,  the  system  designer  cannot — 
and  eventually  should  not  —  have  or  be  required  to  have  a 
complete  understanding  of  the  user's  needs  prior  to  tne 
design  and  implementation  process.  Rather,  he  should  expect 
that  the  emergence  of  unanticipated  informational  needs  is  a 
continuing  part  of  the  design  and  development  effort. 

Thus,  adaptive  design  in  a  DSS  involves  the  role  of 
learning  in  the  DSS  ouilding  process.  To  reduce  the  risk  of 
not  being  aole  to  reach  (uncertain)  final  objectives,  DSS 
researchers  often  argue  for  adopting  the  prototyping  stra¬ 
tegy.  This  consists  of  focusing  the  development  effort  on 
ouilding  a  quick  and  working  prototype  or  model  that  nas  tne 
most  important  features  or  ideas.  This  early  system  is  next 
delivered  to  the  end  user  for  evaluation.  The  users  tnen 
give  their  feedback  for  determining  possible  enhancements. 
The  system  builders  study  the  users'  suggestions  and  attempt 
to  update  the  prototype  accordingly.  This  interaction 
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between  the  user  and  the  analyst  continues  until  a  satisfac¬ 
tory  prototype  is  achieved.  An  important  implication  of  such 
an  iterative  and  evolutionary  process  is  that  both  tne  user 
and  the  analyst  are  expected  to  make  mistakes,  out  attempt 
to  learn  as  much  as  possible  from  these  mistakes. 


3.  CHARACTERISTICS  OF  ADAPTIVE  OR  EVOLUTIONARY  DESIGN 

The  process  of  evolutionary  design  can  be  characterized 
by  the  following: 

Remove  the  Pressure  to  Do  it  Riant 


Keen  [Ref.  3]  insists  that  the  prototyping  goal 
should  be  focused  on  effectiveness  rather  than  on  efficien¬ 
cy.  It  is  essential  that  a  system  be  built,  even  if  it  does 
not  have  all  of  the  desired  features.  Such  a  strategy  will 
help  remove  some  pressure  on  the  system  builder.  In  fact, 
high  requirements  of  the  system  reliability  could  be  a 
gold-plating  feature  that  causes  delay  and  increased  costs. 
The  end  user  often  wishes  to  see  a  working  system  —  even  at 
the  risk  of  incompleteness  —  to  understand  what  it  is  all 
about. 

2 -  A  Learning  Process 

Learning  is  an  integrated  part  of  the  design  process. 
It  is  assume-  s.iat  the  user  copes  with  a  semi-structured  do¬ 
main.  Some  relevant  decision-making  factors  are  unknown. 
Also,  the  decision  making  metnods  are  vaguely  defined. 
Prototyping  can  oe  used  as  a  learning  tool  to  explore  the 
manner  of  change  in  the  users'  priorities.  A  good  develop¬ 
ment  process  should  lead  to  a  redefinition  of  the  user's  way 
of  analyzing  the  proolem.  This  would  in  turn  lead  to  a  new 
way  to  resolve  proolems. 

3 .  User  Participation 

Evolutionary  design  involves  active  user  participa¬ 
tion.  The  user  snould  provide  good  and  timely  feedback  to 
facilitate  tne  ennancement  process  of  early  prototypes. 


This  implies  that  the  DSS  user  employs  the  system  and  evalu¬ 
ates  it  in  light  of  the  merits  of  the  information  it  pro¬ 
vides  to  support  decision  making.  He  is  expected  to  suggest 
changes  in  Input/ Output  formats  and  the  structure  of  the 
prototype  under  development,  rank  the  usefulness  of  various 
modules  of  the  current  system  and  to  prioritize  the  useful¬ 
ness  of  suggested  features  to  be  integrated. 

4.  Inexpensive  Development  Effort 

Keen  and  Gamoino  [Ref.  4]  argue  that  the  first  proto¬ 
type  should  oe  inexpensive.  3y  its  natur°,  prototyping  is  a 
risxy  venture.  Since  potential  benefits  of  the  would-oe  DSS 
are  often  unclear,  important  development  cost  can  hardly  oe 
justified.  Hore  important,  a  high  initial  investment  can 
discourage  the  user  to  aoort  tne  process. 


C.  A  MODEL  FOR  PROTOTYPING  OR  ADAPTIVE  DESIGN 

Neumann  and  Jenkins  propose  a  prototype  model  that 
consists  of  four  procedures.  As  shown  in  Figure  I,  tne 
first  procedure  is  a  design  step  that  attempts  to  identify 
tne  user(s)'s  oasic  information  requirements.  A  numoer  of 
requirements  analysis  approaches  were  proposed  to  identify 
the  users  (s)  's  requirements;  the  data  aostraction  approacn- 
-  the  essential  features  are  data  and  data  relationsnips , 
and  tne  process  simulating  approacn  —  ooth  data  and  proces¬ 
ses  must  je  idencified  in  tne  first  step. [Ref.  5] 

Tne  second  step  involves  tne  development  of  tne  initial 
or  ennanced  prototype  wnich  can  tnen  be  delivered  to  tne 
user  for  use  and  feedback.  In  the  third  step,  the  use  of  tne 
prototype  leads  to  discussions  and  suggestions  for  ennancing 
tne  prototype  (tne  fourth  step). 
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Figure  1 

A  Model  for  Prototyping 

It  should  be  noted  however  that  the  interaction  between 
the  user  and  the  model  is  the  key  issue  during  the  entire 
process.  It  is  the  quality  and  speed  of  the  interaction 
between  the  user  and  the  system  developer  that  dictates  the 
successfulness  of  the  prototyping  project. 


III.  TH2  AS  DATA3AS5  REPORT I MG  SYSTEM 


A.  BACKGROUND 

The  Department  of  Administrative  Sciences  (AS)  of  tne 
U.S.  Naval  Postgraduate  School  has  operated  its  financial 
data  base  manually.  With  a  size  of  more  than  one  hundred 
personnel,  including  faculty  and  staff,  financial  operations 
and  planning  has  required  suostantial  investment  in  man¬ 
power.  With  its  growing  size,  there  has  oeen  a  universal 
recognition  to  have  an  computer-based  data  oase  management 
system  (DBAS)  .  In  March  1334,  an  information  requirements 
analysis  nad  oeen  explored  oy  Renner  [Ref.  5].  This  ana¬ 
lysis  applied  the  methodology  of  structured  design  to  derive 
some  suggestions  for  ouilding  a  relational  DBMS  for  tne  AS 
department  [Ref.  7],  In  November  1984,  a  first  attempt  to 
implement  a  DBMS  was  initiated  oy  a  Management  Information 
Systems  faculty  member  (who  played  the  role  of  the  system 
ouilder)  in  collaoorat ion  with  a  departmental  management 
assistant  (who  played  the  role  of  the  potential  user).  The 
XnowledgeMan  (X-Man)  relational  Data  Base  Management  System 
was  adopted  as  the  system  generator.  X-Man  was  cnosen 
oecause  of  its  flexiole  relational  dataoase  concept  and  tne 
possioility  to  perform  spreadsheet  analysis  and  grannies. 
It  also  leaves  room  for  tne  trained  end  user  to  manipulate 
the  DBMS  command  language.  Zxtensive  interaction  oetween  tne 
two  interested  parties  has  lead  to  a  thorough  requirements 
analysis  and  system  specifications.  Also,  a  few  data  taoles 
and  displayed  screen  interfaces  were  developed  to  test  tne 
feasioility  of  using  X-Man  as  the  system  generator. 


3.  METHODOLOGY:  THE  "DIARY  APPROACH" 


Ginzberg  argues  for  a  "Diary  Approach"  to  observe  the 

relationship  between  the  user  and  the  system  designer  [Ref.  ; 

8],  This  approach  has  proven  useful  in  recording  the  avolu-  I 

* 

tion  of  the  systems  modifications  and  user  satisfaction. 

The  diary  approach  consists  of  using  a  log  book  to  systema¬ 
tically  record  the  history  of  the  DSS  development  process.  I 

Its  records  the  evolution  of  the  system  due  to  modifications  1 

requested  by  both  the  system  builder  and  the  users.  Figure 
2  describes  the  three  elements  involved  in  the  adaptive 
design  of  the  AS  database  reporting  system.  Among  the  users, 
the  management  assistant  and  the  faculty  advisor  maintained  ! 

close  interaction  with  the  graduate  student.  The  interac¬ 
tion  with  the  faculty  advisor  primarily  dealt  with  concep¬ 
tual  designs  and  technical  issues.  The  interaction  oetween 
the  management  assistant  and  the  graduate  student  was  almost 
daily.  It  focused  on  the  system  development  and  the  inter¬ 
face  format;  i.e.,  screen  design  and  reports.  The  inter¬ 
action  with  the  administrative  assistant  and  interested 
office  clerks  was  casual.  They  provide  feedback  on  the  I 

quality  of  the  user  interface. 

Table  I  reports  historical  entries  on  the  iterative 
design  process.  The  changes  were  either  initiated  oy  the 
user  (i.e.,  the  management  assistant)  or  the  system  develop-  ! 

er  (i.e.,  the  autnor) .  The  definition  of  the  acronyms  used 
in  the  taole  can  be  found  in  Aooendix  H. 
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Figure  2  : 


The  Elements  of  the  Adaptive  Design  of  the  AS 
Database  Reporting  System 


TABLE  I.  DIARY  ENTRIES 


DATE  INITIATOR  ACTION 

(D  =  DEVELOPER, 

0  =  USSR) 


3  Se?  D 

4  Sep  D 


Worked  on  forms  to  add  data  to  the 
personnel  history  (PHISTORY)  tables. 


5  Sep  D  Same  as  above.  X-Paint  directions 

were  misread;  caused  2  days  delay. 
Created  three  PHISTORY  reports  for 
user  to  confirm  design. 

8  Sep  D  Continued  working  on  PHISTORY  re¬ 

ports. 


9  Sep  D 


26  Sep  U  User  had  problems  accessing  files. 

This  was  caused  by  a  hardware  pro¬ 
blem.  Created  three  menus;  the 
main,  expenses  and  data  base  menus. 

29  Sep  U  Modified/created  5  reports. 


30  Sep  D  Modified  the  PHISTORY  menu  program 

and  created  a  program  to  delete 
records . 


3  Oct  D 


3  Oct  D 


15  Oct  D 


15  Oct-13  Nov  D 


Transferred  files  to  another  compu¬ 
ter  due  to  hardware  oroolems. 
(3acked-up  and  reconfigured  system.) 

Everything  is  at  the  same  state  as  2 
weeks  ago  -  lost  2  weeks  due  to 
Backup  proolems. 

Attempted  to  pass  an  IC?  program  in 
the  deletion  modules.  --  Not  suc¬ 
cessful  . 

Attempted  to  get  around  aoove  pro¬ 
blem  by  using  MACRO(s).  —  Mot 
successful.  Decided  to  use  case 
statements  if  necessary  in  modules. 
—  This  was  successful. 
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13  Nov 

D 

Corrected  PHISTORY  report.  Page 
headers  were  not  displayed.  Error 
was  in  reading  K-Paint  documenta¬ 
tion. 

15  Nov 

D 

Attempted  to  speed-up  processing  by 
RELEASING  modules.  —  Not  success¬ 
ful  . 

18  Nov 

D 

RELEASE  and  MACRO (s)  are  not  needed 
in  the  code. 

20  Nov 

U 

Trying  to  determine  a  method  of 
printing  the  last  date  that  a  taole 
was  updated  on  a  report.  —  Not 
successful . 

21  Nov 

D 

Demonstrated  system  for  user. 

25  Mov 

U 

Made  the  system  more  user  friendly 
(error  detection)  by  using  loops  in 
programs. 

1  Dec 

D 

Working  on  menus  for  the  reports 
generators. 

2  Dec 

U 

Modified  PHISTORY  report. 

11  Dec 

U 

Created  Outstanding  TO(s)  Report. 

12  Dec 

u 

Modified  forms  for  entering  data 
from  mixed  case  to  upoer  case. 
Added  a  RATE  field  to  PHISTORY  taole 
to  ease  computation  of  virtual 
fields. 

14  Dec 

D 

Created  forms  to  enter  daca  and 
modified  programs  to  display  menus. 

7  Jan 

D 

Modified  programs  to  load  tables  and 
forms  once  to  speed  up  processing. 

9  Jan 

D 

Created  form  to  enter  data. 

14  Jan 

D 

7  Jan  modifications  were  not  suc¬ 
cessful.  Deleted  modifications. 

15  Jan 

D 

Demonstrated  system  to  user.  Imple¬ 
mented  system. 

18-26  Jan  U 


3  Feb  U 

6  Feb  U 

D 

13  Feb  □ 

15  Feb  U 
17  Feo  U 

19  Feb  U 

D/a 


Modified  and  created  programs  to 
allow  user  to  access  specific  re¬ 
cords.  Required  creation  of  83  more 
files,  (perform  files,  forms  and 
error  messages) 

Modified  the  personnel  funding 
report . 

Deleted  INDIRECT. DOC#  from  INDIRECT 
entry  forms  and  added  SEGMENT  and 
SERIALS  to  INDIRECT  table. 

Modified  the  DELTREC2.IPF  module  so 
that  the  last  record  in  a  table  will 
not  be  deleted  if  a  match  of  the 
deletion  criterion  is  not  found. 

Took  INDIRECT. EXTENDED  out  of  taoles 
—  not  needed. 

Added  PURCHASE. QTY  to  entry  forms. 

Added  INDIRECT. SERIALS  and  INDI¬ 
RECT.  SEGMENT  to  entry  form.  Deleted 
INDIRECT. DOC#  from  same. 

Found  two  different  data  values 
called  INDIRECT. DOC#.  Placed  IN¬ 
DIRECT.  DOC#  back  in  entry  form. 

Took  financial  analysis  option  out 
of  MAINFRM.IPF  (not  enough  time  to 
develop  and  implement)  .  Crossed 
modified  system  over  to  production. 


Nith  the  "Diary  Approach"  any  major  design  decisions  or 
accomplishments,  and  significant  proolems  or  events  were 
logged.  As  the  design  of  the  system  progressed,  the  majo¬ 
rity  of  the  actions  were  initiated  by  the  user(s). 


C.  THE  EVOLUTION  OF  THE  AS  REPORTING  SYSTEM  ARCHITECTURE 

Departing  from  the  original  architecture,  this  section 
discusses  the  required  modifications  that  occurred  through¬ 
out  the  implementation  and  testing  processes.  During  the 
development  process,  it  has  been  noticed  that  the  user  has 
actively  participated  in  the  creation  of  the  DBMS  prototype. 


Such  participation  has  triggered  numerous  generations  of 
new  requirements  and  consequently  modifications  to  the 
originally  planned  design.  The  purposes  of  this  thesis  are 
(i)  to  expand  the  initial  system,  a  working  out  incomplete 
data  base  system  that  is  used  as  a  management  planning  tool, 
and  (ii)  to  observe  the  evolutionary  development  of  the  DBMS 
in  terms  of  user  needs  and  satisfaction. 

1.  The  Initial  AS  Reporting  System  Architecture 

The  initial  AS  Reporting  System  Architecture  (Figure 
3)  was  based  on  four  income  accounts?  OPTAR,  10%  Indirect, 
other  sources  of  income  and  research  funds,  and  four  expense 
accounts;  miscellaneous  expenses,  travel,  personnel  salary 
and  equipment/supplies.  Figure  3  shows  that  tne  income 
accounts  had  varied  expenses;  i.e.,  miscellaneous  expenses, 
travel  and  equipment/supplies  may  be  funded  by  the  OPTAR 
account.  Additionally,  there  may  be  major  restrictions  on 
expense  funding;  i.e.,  equipment/supply  purchases  over  $3000 
may  not  be  funded  by  the  OPTAR  account,  personnel  salaries 
may  not  be  funded  from  the  OPTAR  account. 


3.  The  Second  (Final)  Modification  Stage 

During  this  stage,  accounts  (data  tables)  were  added 
and  deleted  from  the  AS  Reporting  System's  Architecture. 
The  two  data  taoles  added  during  the  first  modification 
stage,  OPTAR  3alance  and  travel  request  were  deleted.  The 
OPTAR  and  travel  accounts,  with  minor  modifications,  could 
provide  the  same  information  as  the  before  mentioned  deleted 
tables.  Two  tables  were  added,  one  table  contained  person¬ 
nel  information  (pay  grade,  job  status,  etc.)  and  another 
contained  an  inventory  of  property.  Appendix  J  is  a  list 
of  the  current  data  tables  and  their  respective  data  fields. 
The  following  are  major  changes  resulting  from  user  inter¬ 
action: 

1.  Redefinition  of  field  names  and  types  to  increase 
consistency  tnroughout  the  data  base  and  deletion  or 
addition  of  data  fields;  redefined  fields  --  7, 
deletion  of  fields  —  12,  addition  of  fields  —  16. 

2.  Menu  and  form  formats. 

3.  Change  of  instructions  on  menus  and  forms. 

4.  Compromise  of  report  formats  to  fit  both  users;  the 
more  knowledgeable  user  wanted  more  information 
while  novice  users  wanted  less. 


5.  The  aoility  to  select  records  based  on  specific 
field  values. 


This  thesis  involved  the  design  and  implementation  of  a 
data-oriented  decision  support  system  to  support  financial 
decision  making  of  the  AS  Department. 

A.  SOME  OBSERVATIONS  ON  THE  EXPERIMENT 

1.  Close  Participation  Between  the  End  User(s)  and  the 


Adaptive  Design  allows  the  user  to  actively  partici¬ 
pate  in  the  evolution  of  the  system  characteristics.  Three 
basic  changes  in  the  system  design  occurred  during  the 
prototyping  effort.  First,  some  data  tables  were  redesign¬ 
ed.  Field  names  and  sizes  had  been  redefined.  A  number  of 
tables  were  combined.  Second,  additional  program  modules 
were  added  to  coordinate  various  systems  functions  using 
menu  structures.  The  latter  render  the  sequencing  of  program 
modules  transparent  to  novice  users.  Third,  the  use  of  the 
system  (i.e.,  K-Man)  command  language  was  increased. 

In  a  more  conceptual  level,  the  cross  examination  of 
the  prototype  give  rise  to  better  understanding  of  the 
issues  related  to  the  financial  system.  The  experience  witn 
the  implementation  of  the  AS  Reporting  System  also  confirms 
some  early  findings  that  argues  prototyping  as  a  catalyst  to 
participative  design,  learning,  and  organizational  develop¬ 
ment  [Ref.  9].  In  effect,  it  has  been  observed  that  the 
main  participating  user  has  gained  increasing  interest  in 
the  understanding  and  design  of  systems.  Also,  the  early 
success  of  the  prototype  has  generated  some  redesign  of 
office  tasks. 

2.  Interaction  Time 

The  more  frequent  the  interaction  time  between  the 
user  and  the  developer,  the  more  effective  the  prototype. 


Delayed  feedback  has  proven  to  slow  down  the  learning 
process  and  weaken  tne  participants '  enthusiasm.  Time 
pressures  could  be  used  as  a  strategy  co  speed  up  the  inter¬ 
action  process. 

3 .  Planning  Sessions 

Unstructured  initial  planning  sessions  involving  tne 
end  user  and  the  system  builder  could  distract  the  end  user 
from  the  definition  of  important  initial  requirements.  A 
more  structured,  issue-oriented  approach  results  in  more 
timely  and  clearly  defined  requirements.  This  is  even 
accentuated  when  there  is  more  than  one  participating  user 
and/or  novice  users.  Individual  differences  sometimes  have 
produced  conflicting  design  suggestions.  However,  effective 
group  discussion  have  proven  to  avoid  the  risk  of  designing 
system  features  that  reflect  strong  oiases  from  a  single 
individual.  Henderson  [Ref.  10]  raises  the  potential  risk 
of  loss  of  creativity  when  dealing  with  multiple  participa¬ 
ting  users.  Due  to  little  group  interaction,  and  more 
importantly,  to  the  large  disparity  in  the  degree  of  parti¬ 
cipation,  it  was  not  possible  to  confirm  nor  disconfirm  the 
impact  of  group  interaction  processes  and  user  creativity. 


4.  User  Feedback  is  Less  Intense  and  Crucial  Towards 


the  Final  Phase  of  tne  Develooment  Process 


The  user  feedback  is  expected  to  end  when  a  satis¬ 
factory  system  is  delivered.  It  seems  to  be  unrealistic  to 
expect  the  end  user  —  even  though  he/she  has  oecome  more 
computer  literate  —  to  keep  expanding  the  system.  Since 
the  user  has  captured  the  capaoilities  as  well  as  limita¬ 
tions  of  the  system,  he/she  can  more  or  less  precisely 
formulate  requirements  for  future  enhancements.  At  this 


stage,  the  need  of  sustained  user  feedback  seems  to  be  less 
crucial  —  requested  modifications  are  normally  minor. 

5 .  Cost  Effective 

Prototyping  is  cost  effective,  at  least  for  the 
first  phase  of  system  enhancements.  The  effort  spent  on 
developing  a  successful  and  complete  module  has  allowed 
duplication  of  programming  procedures  to  similar  modules  in 
later  version  of  the  prototype.  However,  it  is  not  clear 
that  the  economies  of  scale  effect  would  continue  to  imple¬ 
ment  more  complex  integrated  modules  in  the  future. 

5.  Prototypes  are  Disposable  Systems 


At  least  for  the  user  who  nas  participated  through¬ 
out  the  entire  design  and  implementation  process,  the  proto¬ 
type  has  become  to  a  certain  degree  disposaole.  Since  the 
participative  user  has  oecorae  increasingly  computer  lite¬ 
rate,  some  of  the  initially  requested  DSS  features  have 
revealed  to  be  less  useful.  In  fact,  the  ease-of-use  and 
structured  features  of  the  system  has  reduced  the  DSS  to 
perform  only  for  a  well-defined  set  of  data  manipulation  and 
reporting.  To  perform  unusual  data  manipulation,  a  trained 
user  can  now  directly  use  the  DSS  generator  command  lan¬ 
guage.  However,  this  seems  to  oe  true  only  for  the  user  who 
has  worked  closely  with  the  development  of  the  system. 
Other  users,  wno  are  primarily  casual  users  and  non  computer 
experts,  are  expected  to  find  the  system  useful. 


3.  RECOMMENDATIONS  FOR  FUTURE  EXTENSIONS 

3y  definition,  the  adaptive  design  snould  help  the  system 
to  oe  progressively  expanded.  The  current  system  primarily 
handles  data  management  and  report  generation.  There  are  a 
number  of  possiole  enhancements  that  could  oe  added  to  the 
current  release  of  the  AS  dataoase  reporting  system. 


1.  Forms  Handlin 


The  AS  department  office  information  system  operates 
via  a  multiplicity  of  predesigned  paper  forms  sucn  as  travel 
orders,  purchasing  stubs,  reimoursement  forms,  etc..  These 
forms  have  been  processed  oy  office  clerks  using  typewrit¬ 
ers.  Additional  report  procedures  could  be  added  to  the 
current  release  of  the  AS  Database  Reporting  System  to 
generate  these  stub  from  the  computer  printers.  Such  a 
capaoility  would  significantly  improve  the  office  produc¬ 
tivity  oy  reducing  typing  errors,  and  duplication  of  effort 
in  twice  entering  the  same  set  of  information  using  both  the 
typewriter  and  the  computer. 

The  generation  of  office  forms  for  the  princer  can 
oe  done  by  using  the  K-Reoort  report  generation  feature  to 
replicate  forms.  This  could  oe  done  without  much  difficul¬ 
ty.  It  should  be  noted  however  that  continuous  customized 
computer  forms  must  be  ordered. 

2.  Financial  Planning 

To  support  financial  planning,  data  that  reflect  the 
oalances  of  various  expenses  accounts  should  be  rapidly 
computed.  Also,  tne  user  should  oe  able  to  import  selected 
data  from  data  tables  to  handle  spreadsneet  analysis.  The 
use  of  spreadsheets  would  allow  the  user  to  perform  what-if 
analysis  on  various  financial  decisions.  Furtnermore,  a 
trend  analysis  can  be  supported  oy  the  system  by  displaying 
various  graphical  charts  of  key  financial  figures.  To  imple¬ 
ment  the  financial  planning  capability  to  the  system,  tne 
following  steps  are  suggested: 

1.  Join  relevant  financial  data  tables  together. 

2.  Write  procedures  to  compute  conditional  aggregate 
values . 

3.  Import  aggregate  values  into  the  K-Man  spreadsneet. 

4.  Descrioe  procedural  steps  for  the  user  to  manipulate 
spreadsheet  functions. 

5.  Impor*  data  from  tne  spreadsheet  to  the  K-Graph 
feature  for  graph  generation. 
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3 .  Regulation  Engineering 

As  with  any  governmental  agency,  the  financial 
decision  making  process  has  to  strictly  follow  the  laws  and 
regulations  determined  by  the  Federal  Government.  These 
regulations  include  travel  expenses  (e.g.,  10%  money  cannot 
be  used  for  Invitational  Travel  Order),  personnel  (e.g.,  the 
OPTAR  account  cannot  be  used  for  personnel  salaries),  and 
equipment  purchases  (e.g.,  sole  source  justification  is 
needed  for  expenses  whose  amount  is  more  than  one  thousand 
dollars;  purchase  using  Ql\  &  N  funds  cannot  exceed  three 
thousand  dollars)  .  The  responsibility  to  make  sure  that 
financial  decisions  are  legal  relies  solely  on  the  user. 
Due  to  the  complexity  and  diverseness  of  regulations,  it 
would  be  useful  that  the  system  can  store  some  knowledge  in 
the  system.  The  latter  can  be  used  as  a  internal  comptrol¬ 
ler  that  instantaneously  checks  the  legal  aspect  of  all 
financial  transactions. 

The  knowledge  on  various  legal  issues  and  financial 
practices  could  oe  acquired  and  integrated  into  the  current 
AS  database  reporting  system  by  using  GURU;  an  off-the-shelf 
expert  system  development  tool  and  a  by-product  that  can  be 
fully  interfaced  with  K-Han. 
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V.  CONCLUSIONS 


The  purpose  of  this  thesis  was  twofold: 

1.  To  use  the  adaptive  or  prototyping  approach  to  imple¬ 
ment  a  data-oriented  DSS  for  cracking  financial  trans¬ 
actions  of  the  Naval  Postgraduate  School's  Department 
of  Administrative  Sciences. 

2.  To  derive  from  the  system  development,  some  observa¬ 
tions  on  the  impact  of  the  prototyping  approach  on 
systems  design. 

These  two  objectives  have  been  achieved.  First,  the  AS 
Database  Reporting  System  has  been  used  since  January  1936. 
The  system  has  gained  in  usage  as  the  system  has  benefited 
from  enhanced  capabilities.  Also,  the  number  of  systems 
users  has  also  increasing.  Travel  clerks  and  purchasing 
clerks  begin  to  use  the  system  on  a  regular  oasis.  Various 
members  of  the  department  also  use  the  system  on  a  casual 
basis  via  the  Management  Assistant  who  is  currently  the 
database  administrator.  Second,  this  thesis  confirmed  some 
of  the  early  results  found  recently  on  the  DSS  literature 
regarding  the  DSS  design  strategy. 

The  results  of  this  study  was  reported  both  in  the  main 
body  of  the  thesis  and  the  appendices.  Chapter  I  described 
oasic  concepts  and  issues  relating  to  prototyping.  Chapter 
II  reported  the  development  process  of  the  AS  Database  re¬ 
porting  system  in  light  of  the  adaptive  design.  The  "Diary 
Approach"  was  adopted  to  record  development  activities  and 
the  interaction  oetween  the  user  and  the  system  developer. 
During  the  development  process,  close  interaction  with  the 
user  has  lead  to  three  modifications  of  the  AS  Reporting 
System  Architecture.  Chapter  III  analyzed  and  discussed  the 
results  of  the  experiment.  Some  suggestions  for  future 
extensions  of  the  current  database  were  also  presented.  The 
integration  of  spreadsheet  analysis,  graphical  displays,  and 
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I.  INTRODUCTION 


The  purpose  of  this  user's  manual  is  to  guide  the  first 
or  casual  user  to  get  acquainted  with  the  operations  of  the 
Administrative  Sciences  (AS)  Data  Base  Reporting  System  (the 
AS  System)  .  The  current  version  of  the  AS  System  is  an 
interactive,  menu  driven  data  base  management  system.  This 
system  is  used  to  input,  edit  and  store  the  U.S.  Naval 
Postgraduate  School's  Administrative  Sciences  Department's 
financial  data  (i.e.,  the  AS  Department's  OPTAR,  data  rela¬ 
tive  to  the  AS  Department's  indirect  cost  and  researcn  ac¬ 
count,  and  the  Department's  equipment  inventory)  and  to 
create  financial  reports  for  budgetary  planning.  3ecause 
this  is  a  menu  driven  system,  prior  programming  knowledge  is 
not  required  to  use  the  AS  System. 

For  the  sake  of  simplicity,  aspects  that  are  related  to 
the  conceptual  design  and  technical  specif ications  of  the  AS 
System  are  described  in  separate  documents  —  the  Program¬ 
mer's  Manual  and  the  thesis  titled  "The  AS  Financial  Report¬ 
ing  System:  Some  Experience  on  Prototyping  and  User  Inter¬ 
action";  written  by  R.L.  3ooker. 

This  manual  is  organized  as  follow.  General  and  most 
frequently  asked  information  are  provided  in  chapters  I 
through  III  while  more  specific  and  less  used  information 
are  provided  in  chapters  IV  and  V. 


II.  PRINCIPAL  USERS 


The  principal  users  of  this  system  are  expected  to  oe 
the  AS  Department's  Support  Services  Supervisor,  Management 
Assistant,  Travel  Clerk  and  Procurement  Clerk.  The  Manage¬ 
ment  Assistant  is  the  AS  System's  Data  3ase  Administrator 
(DBA) .  All  request  or  suggestions  for  changes  and  major 
problems  should  be  referred  to  the  Data  Base  Administrator. 


Table  I  indicates  some  functions  that  the  AS  System  can 


currently  provide 

mentioned  users. 

to  support  the  tasks  of 

each  of  the  above 

USERS 

DUTIES 

SYSTEM  SUPPORT 

Support  Services 
Supervisor 

Supervises,  plans  and 
coordinates  the  de¬ 
partment's  support 
functions  and  cleri¬ 
cal  support. 

Status  update  on 
personnel . 

Management  As¬ 
sistant 

Interprets  reports  of 
all  financial  receipts, 
expenditures  and  re¬ 
cords.  Identifies 
contributing  sources 
and  makes  comparisons 
to  establish  budget 
trends . 

Updates  financial 
balances  from 
purchase  and  tra¬ 
vel  expenses  re¬ 
ports  . 

Travel  Clerk 

Prepares  and  manages 
all  travel  related 
documents  for  de¬ 
partment.  Coordi¬ 
nates  and  manages  all 
travel  related  ar¬ 
rangements  . 

Outstanding  TO(s) 
report 

Procurement 

Clerk 

Receives  requests  for 
department  procure¬ 
ment  . 

Requisition  Sta¬ 
tus  and  Inventory 
reports 

TABLE  I.  SYSTEM  FUNCTIONS 


III.  OPERATION  OF  SYSTEM 


A.  LOCATION 

The  System  is  resident  on  the  IBM-PC  XT  in  room  Inger- 
soll  230. 

3.  START-UP  (BOOT-UP) 

1.  Place  the  provided  DOS  version  2.1  diskette  in  flop¬ 
py  drive  (slot)  A  of  the  PC;  the  left  drive  in  Fi¬ 
gure  1. 

2.  The  computer  and  printers  are  connected  to  a  toggle 
switch  under  the  computer  taole.  The  on-off  switch 
on  the  computer  should  always  be  in  the  on  position. 
Turn  the  toggle  switch  on  to  turn  the  computer  and 
printer  on.  The  computer  will  run  its  system's 
checks.  (Steps  1  and  2  are  considered  a  cold  start) 
Note  the  warm  start  procedures  below. 

3.  When  the  C>  prompt  appears,  type  in  KMAN  MAINMSN. 

4.  When  prompted,  type  in  your  name  and  password. 

5.  When  the  AS  System  menus  appear,  make  your  menu 
selections . 

Warm  Start  Procedures: 

If  the  power  has  been  previously  turned  on  and  the  provided 
DOS  version  2.1  diskette  has  oeen  previously  loaded,  steps  1 
and  2  of  the  start-up  instructions  may  Qe  ignored.  Instead, 
together  press  the  two  keys  marked  CONTROL  and  ALT,  and  tnen 
the  key  marked  DELETE  (This  is  considered  a  warm  start.). 
Now  perform  steps  3  through  5. 


EXIT 

1.  Select  the  last  option  in  the  main  menu  to  exit  the 
AS  System. 

2.  Turn  the  toggle  switch  off.  (power  off) 

3.  Take  the  diskette  out  of  the  computer. 


IBM  Monochrome  Displa\ 


Figure  1.  I3M  PC 


D.  DATA  MANIPULATION 


All  of  the  table  manipulation  instructions  are  displayed 
The  following  options  are  availaole  for  each 


on  3LUE  menus 
table: 

-  browse  a  table 

-  update  a  record 

-  add  a  record 

-  delete  a  record 

-  return  to  calling  menu 


:  allows  viewing  of  all  the 
records  in  a  taole 

:  allows  modifications  of 
the  contents  of  records 
given  specific  selection 
criterion 

:  allows  the  addition  of  a 
record  to  a  taole 

:  allows  tne  deletion  of  a 
record  from  a  taole  oased  on 
specific  criterion 

:  will  display  tne  next 
higher  level  menu 


Appendix  3  is  a  chart  of  the  AS  Systems  menu's  hierarchy 
and  Appendix  C  displays  the  AS  System's  Menus. 

1.  To  View  All  of  the  Records  in  a  Taole. 

Select  the  "browse  a  taole"  option  in  the  specific 
table  menu.  A  form  will  appear  displaying  tne  first  record 
within  the  table.  The  table  is  sorted  oased  on  a  predeter¬ 
mined  requirement.  The  bottom  of  the  form  contains  instruc¬ 
tions  for  moving  the  cursor  on  the  form  and  for  viewing  tne 
prior  or  next  record.  If  an  attempt  is  made  to  display  pass 
the  last  record  in  a  table,  the  cursor  will  move  to  the  BOT¬ 
TOM  LEFT  corner  of  the  screen  and  the  taole's  menu  will  be 
displayed . 

Note  —  Pressing  ESC  in  the  BOTTOM  LEFT  corner  oe- 

low . 

2 .  To  Update  a  Record  or  Group  of  Records  in  a  Taple. 
Select  the  "update  a  record"  option  in  tne  specific 

taQle's  menu.  A  form  will  appear  requesting  the  entry  of  a 
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specific  value  that  will  select  only  the  records  containing 
that  exact  value.  Enter  the  selection  value. 

a.  If  a  record  meets  the  selection  value  criterion, 
the  only  record,  or  the  first  record,  that  meets 
the  selection  criterion  will  be  displayed  on  a 
form.  The  bottom  of  the  form  contains  instruc¬ 
tions  for  moving  the  cursor  on  the  form  and  for 
viewing  the  prior  or  next  record  that  meets  the 
selection  criterion.  If  an  attempt  is  made  to 
display  pass  the  last  record  that  meets  the 
selection  criterion,  the  cursor  will  move  to  the 
30TT0M  LEFT  corner  of  the  screen  and  the  table's 
menu  will  oe  displayed. 

b.  If  a  record  does  not  meet  tne  selection  criteri¬ 
on,  the  following  message  will  oe  displayed  - 
"Mo  records  satisfy  this  request”.  The  table's 
menu  will  then  be  displayed.  Confirm  that  the 
selection  value  was  entered  or  spelled  correctly 
by  selecting  the  "browse  a  table"  option. 

Repeat  the  steps  to  update  a  record.  If  the 
problem  continues,  notify  tne  AS  System  Admini¬ 
strator. 

Note  -  Pressing  ESC  in  the  BOTTOM  LEFT  corner  oelow. 

3 .  To  Add  a  Record. 

Select  the  "add  a  record"  option  in  the  specific 
table's  menu.  A  form  will  appear  in  which  the  data  for  a 
specific  record  is  entered.  The  form  contains  instructions 
for  moving  the  cursor  on  the  form. 

Mote  -  Pressing  ESC  in  the  30TT0.1  LEFT  corner  below. 

4 .  To  Delete  a  Record  in  a  Taole. 

Select  the  "delete  a  record"  option  in  the  specific 
table's  menu.  A  form  will  appear  requesting  the  entry  of  a 
selection  value  that  will  enable  the  display  of  only  the 
record(s)  containing  that  selection  value.  Enter  the  selec- 
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tion  value.  Another  form  will  appear  confirming  deletion  of 
a  record.  If  Y  is  entered,  you  are  committed  to  deleting  a 
record.  If  N  is  entered,  the  tade's  menu  will  be  display¬ 
ed  and  no  record (s)  will  be  deleted. 

If  Y  is  entered  for  deleting  a  record  and  a  record 
meets  the  selection  value,  the  only  record,  or  the  first 
record,  that  meets  the  selection  criterion  will  be  displayed 
on  a  form.  The  bottom  of  the  form  contains  instructions  for 
moving  the  cursor  on  the  form  and  for  viewing  the  prior  or 
next  record  that  meets  the  selection  criterion.  Place  the 
cursor  in  the  TOP  LEFT  corner  of  the  form  and  press  the  ESC 
key  to  delete  a  record.  ONLY  the  record  that  is  displayed 
when  the  ESC  key  is  pressed  will  oe  deleted.  After  the  re¬ 
cord  has  been  deleted,  the  taole's  menu  will  oe  displayed. 

Mote  -  Pressing  ESC  in  the  30TT0M  LEFT  corner  oelow. 


WARNING 


If  more  than  one  record  meets  the  selection  criteri¬ 


on,  all  of  the  records  that  meet  the  criterion  will  oe  aole 
to  be  displayed  and  deleted.  If  you  attempt  to  display  pass 
the  LAST  record  that  meets  this  criterion,  this  record  will 
be  DELETED  without  the  requirement  to  press  the  ESC  <ey. 
Therefore,  check  the  displayed  record  to  ensure  that  it  is 
not  the  record  for  deletion  oefore  attempting  to  display  the 
next  record.  Remember .  the  LAST  record  that  matches  your 
selection  criterion  will  be  DELETED  if  displaying  pass  the 
LAST  record  is  attemDted. 


Pressing  ESC  in  the  BOTTOM  LEFT  Corner. 


If  ESC  is  pressed  while  tne  cursor  is  m  the  30TT0M  LEFT 
corner,  the  following  message  will  appear:  FSXIT  or  F ABORT 
hit  -  are  you  sure  (Y/N)  ? 

-  Y  will  exit  the  AS  System. 

-  N  will  display  the  table's  or  report's  calling  menu. 


E.  PRINTING  PREDEFINED  REPORTS 


For  the  current  version,  five  reports  have  oeen  gene¬ 
rated  and  could  be  automatically  invoked.  These  include  the 
Quarterly  Inventory,  Outstanding  TO(s),  Personnel  Funding, 
Personnel  History  and  the  Requisition  Status  reports.  Ap¬ 
pendix  D  contains  samples  of  the  AS  System's  Reports.  The 
menus  for  REPORT  printing  are  colored  BROWN.  Select  the 
menu  containing  the  report  that  is  required  to  be  printed. 
ENSURE  that  the  printer  is  CONNECTED  to  the  computer  and 
turned  ON.  Select  the  option  for  the  report  that  requires 
printing.  (Due  to  numerous  sorts  involved  in  printing  of  the 
Personnel  Funding  Report,  there  is  a  1-3  minute  wait  before 
the  report  is  printing.)  After  the  report  has  been  print¬ 
ed,  the  calling  menu  will  be  displayed. 

Note  —  If  printing  of  a  report  is  attempted  while  the 
printer  is  not  on  or  connected  to  the  computer,  an 
error  message  will  be  displayed.  Connect  the  printer 
and  turn  it  on.  Now  attempt  to  print  the  report. 

Note  —  All  reports  are  formatted  for  the  NEC  3550  prin¬ 
ter.  Use  of  other  printers  will  require  changes  to  the 
AS  System's  programs.  Notify  the  DBA  if  this  is  neces- 


IV.  TA3LES 


The  AS  System's  data  is  stored  in  the  following  tables: 


1.  Indirect  - 

2 .  OPTAR  - 

3.  Other  - 

4.  Personnel  Funding 

5.  Personnel  History 

6.  Purchase  - 

7.  Travel  Expenses  - 


information  on  research  and  other 
reimbursable  sources  of  funds  and 
resulting  Indirect  Costs  to  De¬ 
partment 

contains  information  on  Depart¬ 
ment's  operating  budget 
contains  information  on  other 
sources  of  Department  funding 
contains  personnel  expense  data 
contains  personnel  data  for  staff 
positions  within  the  AS  Department 
contains  data  on  Department  and 
research  purchases 

Department  and  Research  travel 
expenses 


A.  SOURCES  OF  DATA  FOR  TABLES 


Indirect  Taole: 

-  entry  date 

-  status 


-  principal 


date  record  entered  into  tne  AS  System 
if  research,  pending  wnen  first  entered 
into  AS  System  and  changed  to  funded  when 
funding  document  received  from  Comptroller 
if  other  reimoursaole ,  funded 
if  research,  last  name  of  principal  inves¬ 
tigator  On  proposal 

if  other  reimoursaole,  from  Code  002  Reim¬ 
bursable  Funds  Status  Report 


sponsor  -  if  research,  from  proposal 

-  if  other  reimbursable ,  source  from  Code  002 
Reimbursable  Funds  Status  Report 

proposal  -  if  research,  actual  title  of  proposal  (con¬ 
firm  with  funding  document  when  funding 
document  received) 

-  if  other  reimbursable,  title  from  Code  002 
Reimbursable  Funds  Status  Report 

period  -  if  research,  dates  specified  on  proposal 

for  performance  of  research 

-  if  other  reimbursable,  no  entry 

estimate  -  if  research,  estimated  cost  of  research  for 
current  fiscal  year  from  proposal's  oudget 
page 

-  if  other  reimbursaole,  no  entry 

DEPTIC  -  if  research,  the  amount  that  the  department 
is  expected  to  receive  in  indirect  cost; 
calculated  from  the  proposal's  budget  page 
(10%  of  total  labor  charges) 

-  if  other  reimbursable,  no  entry 

MIPR  -  if  research,  MIPR  #  from  Block  #5  of  fund¬ 

ing  document  (Military  Inter-department 
Purchase  Request) 

-  if  other  reimoursaole,  no  entry 

ref#  -  if  research.  Reference  #  from  Block  #5  of 

funding  document  (Order  for  /7ork  and  Servi¬ 
ces,  NAVCOMPT  2275) 

-  if  other  reimbursaole,  no  entry 

authorized  -  if  research,  actual  authorization  from  Code 

002  Memorandum  (Funds  Authorization  Grant/ 
Change) 

-  if  other  reimoursaole,  act  auth  from  Code 
002  Reimoursable  Funds  Status  Reoort 


costcode  -  if  research,  job  order  from  Code  002  Memo¬ 
randum  (Funds  Authorization  Grant/Change) 

-  if  other  reimOursaDle,  .TO  #  from  Code  002 
Reimbursaole  Funds  Status  Report 

expiration  -  if  research,  exp  date  from  Code  002  Memo¬ 
randum  (Funds  Authorization  Grant/Change) 

-  if  other  reimbursable,  exp  date  from  Code 
002  Reimbursable  Funds  Status  Report 

ICRECD  -  if  research.  Indirect  (Chairman)  from  Code 
002  Memorandum  (Funds  Authorization  Grant/ 
Change) 

-  if  other  reimbursaole,  ind  cost  (chair) 
from  Code  002  Reimoursaole  Funds  Status 
Report 

staff  -  if  research,  total  of  all  support  labor 

labor  on  proposal's  budget  page 

-  if  other  reimbursable,  no  entry 

as  -  if  research,  amount  which  the  principal 

appropria-  investigator  agreed  to  give  the  Department 
tion 

-  if  other  reimoursaole,  verbal  authorization 
from  principal  investigator  or  Department 
Chairman. 

doc#  -  if  research.  Document  1  from  31ock  #2  of 

funding  document  (Order  for  Mork  and  Ser¬ 
vices,  MAVCOMPT  2275) 

segment  -  if  research,  segment  from  Code  002  Memoran¬ 
dum  (Funds  Authorization  Grant/Change) 

-  if  other  reimoursaole,  seg  from  Code  002 
Reimbursaole  Funds  Status  Report 

serials  -  if  research,  serial  I's  from  Code  002  Memo¬ 
randum  (Funds  Authorization  Grant/Change ) 

-  if  other  reimoursaole,  doc  #'s  from  Code 


002  Reimbursaole  Funds  Status  Report 


OPTAR  Table: 


-  entry  date 

-  date 

-  authorized 

-  travel 
authorized 

-  actual 

-  travel 
actual 

-  difference 

-  travel 
diff 


date  record  added  to  AS  System 
date  of  latest  authorization  memo 
received 

total  amount  authorized;  from  Code  00  Memo¬ 
randum  (Fiscal  Year  Interim  Operating  Tar¬ 
get) 

amount  designated  for  travel;  from  Code  00 
Memorandum  (Fiscal  Year  Interim  Operating 
Target ) 

changes  in  authorized;  from  reissues  of 
Code  00  memorandum  (Fiscal  Year  Revised 
Interim  Operating  Target) 

changes  in  travel  authorized;  from  reissues 
of  Code  00  Memorandum  (Fiscal  Year  Revised 
Operating  Target) 

(actual  -  authorized) ;  computed  by  AS  Sys¬ 
tem 

(travel  actual  -  travel  authorized);  compu¬ 
ted  by  AS  System 


I 


I 


EE 


Other  Table; 


-  comes  from  verbal  authorization  of  De¬ 
partment  Chairman  or  Associate  Chairman  for 
Research  and  the  principal  investigator 

-  entry  date  -  date  that  the  record  is  entered  into  the  AS 

System 

-  status  -  status  of  availability  of  funds  to  Depart¬ 

ment;  pending#  received#  or  expired 

-  expiration  -  Expires  from  Research  Administration  print¬ 

out  or  Exp  Date  from  Reimbursable  Funds 
Status  Report  provided  at  time  of  agreement 

-  principal  -  Account  from  Research  Administration  print¬ 

out;  or  principle  investigator  from  Reim¬ 
bursable  Funds  Status  Report 

-  sponsor  -  sponsor  from  Research  Administration  print¬ 

out  or  source  from  Reimbursable  Funds  Sta¬ 
tus  Report 

-  proposal  -  title  from  Research  Administration  printout 

or  Reimbursable  Funds  Status  Report 

-  costcode  -  cost  code  from  Research  Administration 

printout  or  JO#  from  Reimbursable  Funds 
Status  Report 

-  authorized  -  amount  agreed  upon  for  Departmental  use 

-  remarks  -  misc 


cent's  outgoing  Support  Employment 
Schedule 


-  entry  date 

-  last  name 

-  first  name 

-  fund  date 

-  fund  from 

-  fund  to 

-  #  of  days 

-  hours 

-  cost  code 

-  code 

-  amount 

-  rate 

-  hours  per 
week 


-  date  of  record  entry  to  AS  System 

-  from  employee,  from  outgoing  Support  Em¬ 
ployment  Schedule  Memorandum 

-  from  Personnel  History  table 

-  date  of  outgoing  Support  Employment  Sche¬ 
dule  Memorandum 

-  date  funding  period  commences,  dates  from 

outgoing  Support  Employment  Schedule  Memo¬ 
randum 

-  date  funding  period  terminates,  dates  from 
outgoing  Support  Employment  Schedule  Memo¬ 
randum 

-  number  of  8-hour  days  worked  during  funding 
period,  days  from  outgoing  Support  Employ¬ 
ment  Schedule  Memorandum 

-  number  of  hours  in  excess  of  8-hour  days 
worked,  hours  from  outgoing  Support  Employ¬ 
ment  Schedule  Memorandum 

-  from  outgoing  Support  Employment  Schedule 

-  from  the  following  department  codes: 

-  SS?  support  salaries 

-  calculated  based  upon  rate  and  number  of 
days/hours  worked 

-  employee's  rate  during  funding  period,  rate 
from  personnel  funding 

-  number  of  hours  employee  worked  during 
funding  period,  hours  per  week  from  person¬ 
nel  history 


Personnel  History  Table:. 

-  entry  date  -  date  record  is  entered  into  table 

-  last  name  -  from  block  i  1  of  Standard  Form  50  (Notifi 

cation  of  Personnel  Action 

-  first  -  from  block  #  1  of  Standard  Form  50  (Notifi 

cation  name  of  Personnel  Action) 

-  DOB  -  date  of  birth  from  block  #  4  of  Standard 

Form  50  (Notification  of  Personnel  Action) 

-  effective  -  from  block  #  14  of  Standard  Form  50  (Noti¬ 

fication  of  Personnel  Action) 

-  status  -  from  block  #  of  Standard  Form  50  (Notifi¬ 

cation  of  Personnel  action) ;  T  =  tempora¬ 
ry;  P  =  permanent 

-  billet  t  -  from  olock  i  27  of  Standard  Form  50  (Noti¬ 

fication  of  Personnel  Action);  assigned  by 
CPO 


-  job  title 

-  elements/ 
stds  set 

-  work  unit 

-  work 

-  PD  S 

-  series 

-  grade 

-  step 


-  from  block  #  27  of  Standard  Form  50  (Noti¬ 
fication  of  Personnel  Action) 

-  date  elements  and  standards  set  for  perfor 
mance  review;  from  current  performance  ap¬ 
praisal 

-  assigned  by  support  services  supervisor,  i 
any 

-  immediate  supervisor,  from  Block  #  of 
Position  director  Description  cover  sheet 

-  from  block  #  27  of  Position  Description 
cover  sheet  or  block  4  27  of  Standard  Form 
50  (Notification  of  Personnel  Action) 

-  from  block  #  29  of  Standard  Form  50  (Noti¬ 
fication  of  Personnel  Action) 

-  from  block  #  30  of  Standard  Form  50  (Noti¬ 
fication  of  Personnel  Action) 

-  from  block  #  31  of  Standard  Form  50  (Noti¬ 
fication  of  Personnel  Action) 
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annual 
salary 
hours  per 
week 

expire 


-■  from  block  #  32  of  Standard  Form  50  (Noti¬ 
fication  of  Personnel  Action) 

-  *  of  hours  worked  per  week,  from  Block  #  37 
of  Standard  Form  50  (Notification  of  Per¬ 
sonnel  Action) 

-  date  of  expiration  of  temporary  appoint¬ 
ment,  from  block  #  18B  of  Standard  Form  50 
(Notification  of  Personnel  Action) 

-  value  automatically  computed  by  the  System 


rate 

remarks 


-  misc 


Purchase  Table; 

-  entry  date  - 

-  document  i  - 

-  costcode 

-  vendor 

-  item 
description 

-  stock  # 

-  estimate 

-  priority 

-  RDD 


-  code 


date  that  the  record  is  entered  into  AS 
System 

from  block  #  36-43  of  DD  Form  1343  (Requi¬ 
sition  System  Document) 

or  JO#,  from  block  #  46-50  of  DD  Form  1343 
(Requisition  System  Document) 
from  block  *  A  of  DD  Form  1348  (Requisition 
System  Document) 

from  olock  #  8-22  of  DD  Form  1348  (Requi¬ 
sition  System  Document) 

or  part  #,  from  block  #  3-22  or  Remarks  of 
DD  Form  1348  (Requisition  System  Document) 
from  block  #  T  of  DD  Form  1348  (Requisition 
System  Document) 

from  block  #  60-61  of  DD  Form  1343  (Requi¬ 
sition  System  Document) 

required  delivery  date,  from  block  #  62-64 
of  DD  Form  1348  (Requisition  System  Docu¬ 
ment) 

from  the  following  department  codes: 

-  LO;  transportation  of  things  (Federal 


Express) 

-  MR; 

rental  of  equipment 

-  PM; 

maintenance  of  minor 

property 

-  PP; 

maintenance  of  plant 

property 

-  2H; 

honoraria 

-  QT; 

registration  fees 

-  TS; 

consumable  supplies 

-  MM; 

minor  property  acquisition 

-  WMC;  computer  equipment/accessories 

-  '.VP;  plant  property  acquisition 

-  WPC;  computer  equipment 

-  YP;  commercial  printing 


requestor 

POS 

received 

firm 

price 

serial 

pa# 

issue 

location 

qty 


-  last  name  of  individual  who  requested  pur¬ 
chase,  from  Block  #  of  DD  1348  (Requisi¬ 
tion  System  Document) 

-  purchase  order  #  from  31ock  #  2  of  DD  1155 
(Purchase  Order) 

-  date  item  received,  from  receiving  copy  of 
DD  1348  (Requisition  System  Document) 

-  final  price,  from  Block  U  of  DD  1348  (Re¬ 
quisition  System  Document)  or  Block  *  23  of 
DD  1155  (Purchase  Order) 

-  if  a  plant  account  item,  from  equipment 

-  plant  account  #,  from  inventory  records 
forwarded  by  receipt  control 

-  name  of  individual  plant  account  equipment 
issued  to,  from 

-  location  of  plant  account  equipment,  from 

-  from  Block  #  of  DD  1348  (Requisition  Sys¬ 
tem  Document) 


remarks 


-  misc 


Travel  Expenses  Table: 


-  departure 


-  requester 


-  if  civilian  orders,  from  Block  #  10B  of  DD 
1610  (Request  and  Authorization  for  TDY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  from  Block  if  9  of  NAV- 
PERS1320/16  (TEMADD  Travel  Orders) 

-  if  invitational  orders,  from  Proceed  on  or 
about  from  NAVS04650/10  (Invitational  Tra¬ 
vel  Order) 

-  if  civilian  orders,  from  Block  #  2  of  DD 
1610  (Request  and  Authorization  for  TDY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  from  31oc:<  j  3  of  MAV 
PERS1320/16  (TEMADD  Travel  Orders) 

-  if  invitational  orders,  from  Block  #  1  of 
NAVS04650/10  (Invitational  Travel  Order) 


-  location  -  destination  of  traveler 

-  if  civilian  orders,  from  Block  *  11  of  DD 
1610  (Request  and  Authorization  for  TDY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  from  Block  $  13  of  MAV 
PERS1320/16  (TEMADD  Travel  Orders) 

-  if  invitational  orders,  from  Block  #  1  of 
MAVS04650/10  ( Invitational  Travel  Order) 

-  code  -  type  of  travel  from  the  following  depart¬ 

ment  codes: 

-  El;  invitational  travel 

-  ET;  TAD  travel 

-  estimate  -  estimated  cost  of  travel 

-  if  civilian  orders,  total  from  Block  i  14 
of  DD1510  (Request  and  Authorization  for 
Travel  of  DOD  Personnel) 

-  if  military  orders,  total  from  Block  #  13 
of  NAVPERS13 20/15  (TEMADD  Travel  Orders) 


-  if  invitational  orders,  from  for  the  pur¬ 
pose  of  from  NAVS04650/10  (Invitational 
Travel  Order) 

costcode  -  or  JO#,  from  travel  orders 

-  if  civilian  orders,  from  31ock  #  19  (52217- 
XXXXX)  of  DD1610  (Request  and  Authorization 
for  Travel  of  DOD  Personnel) 

-  if  military  orders,  from  31ock  #  17(3)  of 
NAVPERS13 20/16  (TEMADD  Travel  Order) 

-  if  invitational  orders,  from  Block  #  7 
(62271XXXXX)  of  NAVS04650/10  (Invitational 
Travel  Order) 

doc  #  -  if  civilian  orders,  tango  from  31ock  #  19 

of  DD1610  (Request  and  Authorization  of  TOY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  tango  from  Block  #  4  of 
NAVOERS1320/16  (TEMADD  Travel  Order) 

-  if  invitational  orders,  from  Block  #  7 

( ITXXXXX)  of  NAVS04650/10  ( Invitational 
Travel  Order) 

advance  -  if  civilian  orders,  from  Block  #15  of  DD- 
1610  (Request  and  Authorization  of  TOY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  from  3lock  #  21  of 
NAVPERS1320/15  (TEMADD  Travel  Order) 

-  if  invitational  orders,  no  entry 
return  -  date  of  return,  calculated  from  travel 

orders 

claim  date  -  from  31ock  #  14  of  DD  Form  1351-2  (Travel 
Voucher  or  Sub-voucher) 

firm  price  -  total  of  31ocks  #7  and  #  10  from  DD  Form 
1351-2  (Travel  Voucher  or  Suo-voucher) 
entry  date  -  date  of  record  entry  to  AS  System 


-  DOV  #  -  DO  Voucher  No.  from  Block  #  10  of  DD  Form 

1351-2  (Travel  Voucher  or  Sub-voucher) 


Inventory  Table: 


-  pa#  -  plant  account  numoer,  from  Block  #  54  of  DD 

1342  (DOD  Property  Record) 

-  vendor  -  from  Block  #  14  of  DD  1342  (DOD  Property 

Record) 

-  description-  from  Block  #  26  of  DD  1342  (DOD  Property 

Record) 

-  serial  #  -  from  Block  #  17  of  DD  1342  (DOD  Property 

Record) 

-  PO#  -  purchase  order  number,  from  31ock  #  25  of 

DD  1342  (DOD  Property  Record) 

-  cost  -  from  Block  #  6  of  DD  1342  (DOD  Property 

Record) 

-  received  -  from  31ock  #  54  of  DD  1342  (DOD  Property 

Record) 

-  issue  -  from  Block  #  28  of  DD  1342  (DOD  Property 

Record) 

-  location  -  from  Block  #  28  of  DD  1342  (DOD  Property 

Record) 


-  cost 


V.  ERRORS  AND  ABNORMAL  PROCSSSING 

A.  ERRORS 

Notification  of  errors  are  given  by  two  methods: 

1.  The  AS  System  will  display  a  WHITE  on  RED  flashing 
message,  which  will  prompt  for  a  legal  entry.  When  enter¬ 
ing  numbers,  only  use  the  numbers  along  the  top  of  the 
keyboard. 

2.  The  language  (KnowledgeMan)  or  the  Disk  Operating 
System  (DOS)  will  display  a  WHITE  on  3LACK  message.  The 
following  are  examples  of  messages  which  may  be  displayed: 

a.  Do  you  want  to  escape  (Y/N) ?  -  Normally  enter  w 
(no)  . 

b.  <type>  error  reading  <device>;  Abort,  Retry,  Ignore? 
-  Normally  enter  R  (retry). 

If  display  of  the  message  continues,  enter  A  (a- 
bort)  . 

c.  A  warning  message  may  appear;  example  -  File  not 
found.  Note  the  error  message,  exit  the  AS  System, 
remove  the  diskette  and  notify  the  System  Admini¬ 
strator  . 

3.  ABNORMAL  PROCESSING 

If  the  AS  System  does  not  process  normally  (takes  a 
longer  tnan  normal  time  to  process),  press  the  ESC  key. 
Pressing  the  ESC  key  will  either  return  processing  to  the 
calling  menu  or  exit  the  AS  System  and  the  KnowledgeMan 
prompt  (  _  )  will  appear. 

Then  perform  the  following: 

1.  If  processing  is  returned  to  a  calling  module,  attempt 
to  continue  normal  processing.  If  the  problem  contin- 
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APPENDIX  C 
AS  SYSTEM'S  MENDS 

AS  Financial  Reporting  System 

Main  Mena 

1  -  Data  3ase 

2  -  Reports 

3  -  To  Quit 


enter  your  selection 


Personnel  Funding  Expenses 


1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 


enter  your  selection 


Personnel  History  Expenses 


1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 
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Travel  Expenses 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 


enter  your  selection 


Purchase  Expenses 


1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 


Data  Base  Income 


1  -  OPTAR 

2  -  Indirect 

3  -  Other 

4  -  Return  to  calling  menu 


enter  your  selection 


OPTAR  Income 


1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 


enter  your  selection 


Indirect  Income 


1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 


Other  Income 


1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 
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Inventory  Property 


1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 


Reports 


1 

2 

3 

4 

5 


Personnel 

Purchase 

Financial 

Travel  -  Outstanding  TO(s) 
Return  to  calling  menu 


TURN  THE  PRINTER  ON 


enter  your  selection 


APPENDIX  D 

SAMPLE  AS  SYSTEM  REPORTS 
Outstanding  TO(s) 


DEPARTMENT 

OP  ADMINISTRATIVE 

:  SCIENCES 

REPORT  DATE: 

03/10/35 

REPORT :  OOTSTA;JDi:i3  TO (3) 

REVISION  DATS 

COST  CODS 

DOC  » 

REGUSSTOR 

CLAIM 

DOV  i 

20305 

6TOA2226 

Coffey 

-  -  0 

£0005 

STOA2227 

Coffey 

-  -  0 

£0300 

6ITA3361 

esc 

-  -  0 

EG  300 

STOA3350 

Greer 

85-11-12 

EGDOO 

5TOA3352 

Schneidewind 

85-12-02 

£3300 

SITA3351 

Sucnan 

85-12-13 

X3559 

EGDOO 

.  5TOA3353 

Mackay 

85-01-29 

X4744 

EGDOO 

STOA3354 

Landeros 

86-02-11 

X5135 

EGDOO 

6TOA3355 

Bale 

36-02-19 

XS374 

EGDOO 

6TQA3361 

Elan 

-  -  0 

EGDOO 

6TOA3356 

Straub 

-  -  0 

EGDOO 

6TOA3357 

Sidmeyer 

-  -  0 

EGDOO 

6TOA3358 

Conger 

-  -  0 

EGDOO 

6ITA3359 

Pracht 

-  -  0 

EGDOO 

6ITA3360 

Scnocken 

-  -  0 

GDCTU 

6TOA482Q 

Haag 

85-11-25 

GOCTN 

6TOA4821 

Bui 

-  -  0 

GONE 

851201 

Evered 

-  -  0 

GONE 

051202 

Mc.'lasters 

-  -  0 

RCAZ2 

STOA7002 

Lapatra 

85-11-20 

a  CAS  2 

6TOA7001 

3UDDENBERG 

35-12-04 

X3168 

RCAZ2 

6TOA7C03 

LaPatra 

35-12-12 

X3524 

RCA2  2 

6TOA7005 

Jones 

86-01-29 

X4743 

RCFCF 

6TOB7725 

Creignton 

-  -  0 

RCFCF 

STOA7727 

Creignton 

-  -  0 

RCFCF 

5TOB7726 

Creignton 

-  -  0 

RCFCP 

6TOB7727 

Creignton 

-  -  0 

Page  1 
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Personnel  Funding 
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ADMINISTRATIVE  SCIENCES  (AS) 
DATA  BASE  REPORTING  SYSTEM 

PROGRAMMER'S  MANUAL 
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E.  MENUS  - 
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DATA  MANAGEMENT  - 

AS  SYSTEM  REQUIREMENTS  - 

A.  REFERENCES  - 

3.  SOFTWARE  - 


HARDWARE 


I.  BACKGROUND 


The  Administrative  Sciences  (AS)  Data  Base  Reporting 
System  (the  AS  System)  is  an  interactive,  menu  driven  data 
base  management  system.  This  system  is  used  to  input,  edit 
and  store  the  U.S.  Naval  Postgraduate  School's  Administra¬ 
tive  Sciences  Department's  financial  data  (i.e.,  the  AS 
Department's  OPTAR,  data  relative  to  the  AS  Department's 
indirect  cost  and  research  accounts,  and  the  Department's 
equipment  inventory)  and  to  create  financial  reports.  This 
manual  is  not  a  tutorial  of  tne  AS  System's  appl icat ion 
language . 

II.  DATA  3ASE  ADMINISTRATOR 

The  AS  Department's  Management  Assistant  is  the  AS 
System's  Administrator  and  Data  Base  Administrator  (D3A)  . 
The  duties  of  the  DBA  includes  defining  data  tables  and 
structures,  data  security,  program  and  systems  modifica¬ 
tions,  system  documentation  and  user  training.  All  request 
or  suggestions  for  changes  and  major  problems  must  be  refer¬ 
red  to  the  System's  Administrator. 
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III.  SYSTEM  DESIGN 


The  AS  System  performs  data  manipulation  and  report 
generation,  and  has  been  designed  along  these  two  functional 
paths.  Appendix  F,  the  AS  System's  data  flow  diagram  de¬ 
tails  the  two  functional  paths.  Prototyping  was  used?  first 
perform  the  data  manipulation  for  one  table  and  the  report 
generation  for  one  report,  then  use  similar  logic  for  the 
other  taoles  and  reports. 

A.  PRIMARY  DESIGN  GOALS 

The  following  were  the  primary  design  goals  for  AS 
System: 

-  error  detection  and  correction 

-  ease  in  modifying  programs 

-  data  entry  editing 

-  ease  in  entering,  storing  and  modifying  data 

-  ease  in  creating  reports 

-  ease  in  operating  the  system 

-  ease  of  adding  follow-on  features  (i.e.,  spreadsheets, 

graphics,  etc.) 

In  an  attempt  to  accomplish  the  aoove  goals,  the  majori¬ 
ty  of  this  System's  modules  deal  with  the  interface  oetween 
the  user  and  the  data,  instead  of  computations  upon  the 
data.  Due  to  these  design  goals,  the  System's  structure 
chart.  Appendix  G,  displays  a  great  deal  of  higher  level 
fan-out  and  minimal  lower  level  fan-in. 

3.  PROCESSING  LOGIC 

The  following  is  the  standard  processing  logic  of  the 
perform  files  (modules) : 

1.  Change  the  necessary  K-Man  environment  vari¬ 
ables  . 

Receive  passed  data  from  a  calling  module. 
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2. 
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Determine  if  user  wants  to  exit  module.  (Will  be 
no  on  first  entry  into  module.)  If  no  -  perform 
step  4.  If  yes  -  perform  step  8. 

4.  Display  and  accept  input  from  a  menu. 

5.  Error  check  the  menu  input. 

5a.  Display  and  accept  input  from  an 

error  form  and  repeat  step  5  (If  menu 
entry  was  an  error.). 

6.  Perform  function  of  module  or  call  a 
subordinate  module. 

7.  Repeat  step  3. 

8.  Ensure  that  the  changed  K-Man  environmental 
variables  are  set  to  the  default  values. 

9.  Change  the  necessary  variable  to  ensure  that  a 
blank  appears  at  the  calling  menu's  prompt. 
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IV.  APPLICATION  LANGUAGE 

The  application  language  used  for  the  AS  System  is 
KnowledgeMan  (K-Man),  version  1.07;  which  is  developed  by 
Micro  Data  Base  Systems,  Inc.,  Lafayette,  Indiana.  Know¬ 
ledgeMan  is  a  database  management  system  which  is  designed 
to  operate  on  a  microcomputer.  The  AS  System  uses  the  fol¬ 
lowing  KnowledgeMan  capaoilities : 

-  Data  Management  | 

-  Screen  Input/Output  Management 

-  Printed  Forms  (Reports)  Management 

-  Procedures 

Future  development  cf  the  AS  System  can  accommodate  the 
following:  j 

-  Statistical  Analysis 

-  Spreadsheet  Analysis 

-  Calculations 

-  Functions 

-  Graphics 

-  Integration  with  other  financial  packages;  i.e.  IFPS 

V.  SCREEN  INPUT/OUTPUT  MANAGEMENT 

The  AS  System  uses  predefined  forms  for  menus,  data 
entry  and  data  display.  Menus  and  data  entry/display  forms 
prompt  the  user  for  entries.  The  AS  System  is  designed  for 
a  novice  user,  therefore  prompts  and  instructions  are  uti¬ 
lized  instead  of  command  entries.  Each  menu  and  data 
entry/display  form  also  edits  the  user's  input  oy  using 
KnowledgeMan 's  "picture"  capaQility.  If  a  wrong  entry  is 
made,  an  error  form  is  displayed  that  notifies  the  user  of 
an  error  and  prompts  for  a  correct  entry.  Appendix  3  : s 
a  hierarchical  chart  of  the  AS  System's  menus  and  Appendix  C 
contains  each  system  menu. 
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XnowledgeMan ' s  optional  interactive  forms  painting 
component  (X-Paint)  was  used  to  create  the  System's  menus 
and  entry/display  forms.  The  X-Paint  files  are  included 
with  the  AS  System's  K-Man  files. 
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FILES 


The  following  file  name  extensions  are  used  by  the  AS 
System: 

-  EXE  —  a  K-Man  execute  file 

-  ICF  —  context  file,  which  saves  a  former  state  of 

K-Man  processing  in  an  encrypted  format  so  that 
it  can  be  resumed  later  (menus  and  forms) 

-  IGU  —  user/password  security  file  (a  K-Man  file) 

-  INC  —  include  file  (a  K-Man  file) 

-  IPF  —  perform  file,  which  holds  a  sequence  of  K-Man 

commands  (except  for  forms  and  menus,  the  code 
for  these  files  is  contained  in  Appendix  J) 

-  OVL  —  K-Man  overlay  files 

-  TPL  —  report  templates  (created  with  K-Report) 


mainmen 

purrtmen 

optardlt 

reprtmen 

optarmen 

requsrpt 

optarupd 

travlmen 

otherdlt 

tvlexdlt 

othermen 

tvlexupd 

otherupd 

updrecrd 

Naming  convention: 

*.ipf  —  (  *  =  function  performed) 

-  *men.ipf  —  (  This  file  displays  a  menu  and  perform  a 
selected  option.  *  =  function  selected  or 
table  requested) 

(  This  file  is  required  to  delete  a  record 
from  a  table.  *  =  table's  name) 

(  This  file  creates  a  report.  *  =  report' 
name) 

upd.ipf  —  (  This  file  is  required  to  update  a  record 
in  a  table.  *  =  table's  name) 

The  above  files  were  created  with  a  text  editor.  Listings 
of  the  perform  files  are  contained  in  Appendix  I. 


-  *dlt.ipf 

-  *rpt.ipf 


-  *1 


3.  ERROR  AND  MESSAGE  FORMS 

The  following  are  the  AS  System's  error  and  message 
forms : 

-  delerf rm  ( . icf  &  . i pf ) 

-  erlindir  ( . icf  &  .ipf) 

-  er2indir  ( . icf  &  .ipf) 

-  eroinven ( . icf  &  .ipf) 

-  erooptar ( . icf  &  .ipf) 

-  eropf und ( . icf  &  .ipf) 

-  erophist ( . icf  &  .ipf) 

-  erotvlex  ( . icf  &  .ipf) 

-  errorf rm  ( . icf  &  .ipf) 


Naming  conventions 

-  ero*.(.icf  or  .ipf)  —  {  *  -  table's  name) 
The  above  files  were  created,  and  may  be  viewed. 
Paint. 

C.  FORMS 


The  following 

are  the  AS  System's  forms: 

deletf rra 

tabldf rm 

delqsf rm 

trpldf rm 

indelf rm 

pf delf rm 

indircrt 

pf under t 

indirdel 

pf unddel 

indirect 

pf unding 

inupdf rm 

pf updf rm 

invencrt 

phdelf rm 

invendel 

phistert 

inventor 

phistdel 

ivdelf rm 

phistory 

ivupdf rm 

phupdf rm 

opdelf rm 

pudelf rm 

optar 

purchase 

optarcrt 

purchcrt 

optardel 

purchdel 

opupdf rm 

puupdf rm 

otdelf rm 

tvdelf rm 

other 

tvlexert 

othercrt 

tvlexdel 

otherdel 

tvlexp 

otupdf rm 

tvupdf rm 

by  using 


Naming  convention: 

All  of  the  above  files  have  an  .icf  or  .ipf  extension.  The 
".icf"  files  are  saved  for  X-Paint  usage.  The  ".ipf"  files 
are  performed  by  an  AS  System  module  (file) . 

*crt.  —  (A  form  on  which  a  user  enters 

data  to  create  a  record  —  an 
entry  form.  *  =  table's  name) 

-  *delfrm.  —  (A  form  on  which  a  user  enters  a 

field's  value  that  is  used  to 
select  which  record  may  be  dele¬ 
ted.  *  =  table's  name) 

*del.  —  (A  form  that  display's  a  record 

that  .may  be  deleted  —  a  deletion 
form.  *  =  table's  name) 

*.(icf  &  ipf) —  (A  form  that  displays  a  record 

when  a  user  elects  to  browse  a 
table  or  update  a  record  —  an 
entry  form.  *  =  table's  name) 

-  *updfrm.  —  (A  form  on  which  a  user  enters  a 

field's  value  that  is  used  to 
select  which  records  may  be  updat 
ed.  *  =  table's  name) 

The  above  files  were  created  by  using  K-Paint. 

D.  REPORTS 

The  following  are  the  AS  System's  reports: 

-  invenrpt.tpl  —  Quarterly  Inventory 

-  outstrpt.tpl  —  Outstanding  TO(s) 

-  pfundrpt.tpl  —  Personnel  Funding 

-  phistrpt.tpl  —  Personnel  History 

-  requsrpt.tpl  —  Requisition  Status 

The  above  files  were  created,  and  the  structure  may  be 
viewed,  by  using  K-Report. 


E.  MENUS 

The  following  are  the  AS  Systems  menus 


expenf rm 
incomf rm 
indirf rm 
invenf rm 
mainf rm 
optarf rm 
otherf rm 
persdf rm 

Naming  convention: 

-  *frm. (icf  &  ipf ) 


pf undf rm 
phistf rm 
prprtf rm 
purchf rm 
pur  rtf rm 
reprtf rm 
travf rm 


—  (  *  =  the  suDjact  table  or  purpose 
of  menu;  i.e.  phistf rm  is  the  menu 
for  the  phistory  table) 

The  above  files  were  created  by  using  X-Paint. 


F.  TABLES 

The  following  are  the  tables  for  the  AS  System: 

-  indirect. itb  —  Indirect  Income 

-  inventor. ito  —  Inventory  Property 

-  ootar.itb  —  OPTAR  Income 

-  other. ito  —  Other  Income 

-  pf unding. itb  —  Personnel  Funding  Expenses 

-  phistory. itb  —  Personnel  History  Expenses 

-  purchase. itb  —  Purchase  Expenses 

-  tvlexp.itb  —  Travel  Expenses 

The  above  tables  were  created  by  using  K-Man's  command 
language . 


DATA  MANAGEMENT 


The  AS  System's  data  is  organized  into  tables.  Each 
field  within  each  table  has  a  specific  size  and  type  (nume¬ 
ric,  string  or  logical).  Each  file  has  a  "picture",  which 
KnowledgeMan  uses  to  edit  a  field's  value.  The  formats  of 
the  AS  System's  tables  are  contained  in  Appendix  J  and  the 
field  definitions  are  contained  in  Appendix  H.  Because  the 
AS  System's  users  had  previously  used  KnowledgeMan  in  an  ad 
hoc  query  mode,  and  to  decrease  processing  time,  this  is  not 
a  relational  data  base;  there  is  a  duplication  of  data 
oetween  some  tables. 

User  access  may  be  limited  to  tables  and  fields  within 
tables.  The  use  of  this  data  security  capability  is  the 
responsibility  of  the  DBA. 


VII 


A.  REFERENCES 

The  following  references  are  necessary  for  successfully 


programming  the  AS  System: 

-  KnowledgeMan  Reference  Manual 

-  Interactive  Forms  Painting  (K-Paint);  Supplement  #1  to 
the  KnowledgeMan  Reference  Manual 

-  Full-Screen  Text  Processor  (K-Text) ;  Supplement  #2  to 
the  KnowledgeMan  Reference  Manual  or  another  text  editor 

-  Custom  Report  Generation  (K-Report) ;  Supplement  »5  to 
the  KnowledgeMan  Reference  Manual 

The  following  references  are  helpful  for  successfully 
programming  the  AS  System: 

-  Disk  Operating  System  (version  2.1)  by  Microsoft  Corp. 

-  The  Beginner's  Guide  to  KnowledgeMan 

-  Discovering  KnowledgeMan;  published  oy  the  Howard  Sams 
Co.,  Indianapolis 

-  The  Book  of  KnowledgeMan;  by  Gilbert  M.  Roeder 


3 .  SOFTWARE 

The  following  software  is  required  for  operating  the  AS 
System: 

-  DOS,  version  2.1  —  The  CONFIG.SYS  file  must  have 

buffers  set  to  at  least  10.  The 
AS  System  has  buffers=ll.  Each 
additional  ouffer  cost  an  addi¬ 
tional  528  bytes  of  memory,  out 
may  result  in  faster  processing. 


Note  —  A  diskette  has  been  provided  to  the  DBA  which 
contains  DOS  version  2.1  and  the  following  commands  in 
AUTOEXEC.BAT: 

C: 

SETCLOCX 

PATH  C:\AS\KMAN 

CD  C:\AS\SYSTEM 

(With  the  current  equipment,  the  AS  System's  files  are 
stored  in  drive  "C",  suo-directory  \AS\SYSTEM.  Xnow- 
ledgeMan,  K-Paint,  K-Report  and  K-Text  are  stored  in  "C" 
drive,  sub-directory  \AS\KMAN.) 

-  K-Man,  version  1.07  (PCDOS,  IBM  PC) 

-  X-Paint,  version  1.07  (PCDOS,  IBM  PC) 

-  K-Report,  version  1.07  (PCDOS,  IBM  PC) 

-  K-Text,  version  1.07  ( PCDOS ,  IBM  PC)  or  another  text 

editor  (Kedit  was  used  to  create  this  system's  perform  files) 

HARDWARE 

-  Minimum  RAM  of  19 2K 

-  Minimum  mass  disk  storage  of  500K 
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APPENDIX  H 
DATA  DICTIONARY 


DATA  DICTIONARY 

Format  of  elements:  Name,  allowable  values,  format  description, 
files  inwhich  the  element  is  used  (.IPF  files  unless  noted), 
and  read  and  write  access  (DBA  has  taole  matching  access  codes 
to  individuals) . 


Allowable  values;  num  =  numeric,  str  =  string,  logic  =  logical. 


Format;  d  =  place  holder  for  a  digit  or  a  sign. 

r  =  placeholder  for  any  ASCII  character 
%5r  =  rrrrr;  repeat  the  code  the  numoer 


of 


times 


as 


COND 


MUM  0,  1  or  2  A  variable  used  to  determine 

which  condition  has  oeen  selected  oy  a  user  for  either  up¬ 
dating  or  deleting  a  record  from  a  table.  (0  =  only  1  con¬ 
dition  displayed  by  updating  or  deletion  form,  1  =  1st 
condition  was  selected  and  2  =  2nd  condition  was  selected) 
DELTRSC1 ,  DELTREC2,  INDIRUPD,  IMVEMUPD,  OPTARUPD,  OTHERUPD 
PFUNDUPD,  PHISTUPD,  PURCHUPD,  TVLEXUPD,  UPDRSCRD 

DELTANS  STR  (Y,N,y,n)  A  variable  which  determines 

if  a  user  is  sure  that  a  record  is  required  to  be  deleted. 
DELERFRM,  DELERFRM. ICF,  DELQSFRM,  DELQSFRM. ICF,  DELTREC1 

DELTVAR  STR  or  MUM  A  variaDle  which  is  used  to 

determine  which  selection  criterion  is  used  to  delete  a 
record.  (DELTVAR  equals  a  soecific  field's  value.) 

DELTREC2 


EUTRYONE  STR  or  MUM  A  variaole  which  is  updated 

oy  entering  data  onto  to  a  update  or  deletion  selection 
form  or  an  error  form.  The  only  records  that  will  oe  dis¬ 
played  contains  a  field's  value  that  matcnes  EMTRYOME. 
(i.e.  EMTRYOME  =  "Smith”  will  only  display  records  that 
contains  LMAME  =  "Smith") 


ER1INDIR ( . IPF 

& 

.ICF) , 

ER2IMDIR  ( . 

IPF  &  .ICF 

EROIMVEN ( . IPF 

& 

•ICF) , 

EROPFUND ( . 

IPF  &  .ICF 

EROOPTAR ( . IPF 

S. 

•ICF) , 

EROPHIST ( . 

IPF  &  .ICF 

EROTVLEX ( . IPF 

Si 

•ICF) , 

IMDELFRM ( . IPF 

& 

. ICF)  , 

IMDIRDLT, 

IUDIRUPD, 

IUUPDFRM ( . IPF 

& 

.ICF) , 

IMVENDLT,  IMVENUPD,  IVDELFRM ( . IPF 

&  .ICF) , 

IVUPDFRM ( . IPF 

& 

•ICF) , 

OPDELFRM ( . IPF 

Si 

•ICF) , 

OPTARDLT, 

OPTARUPD, 

OPUPDFRM ( . IPF 

Si 

•ICF) , 

OTDELFRM ( . IPF 

Si 

. ICF)  , 

OTHEHDLT, 

OTHERUPD, 

OTUPDFRM ( . IPF 

Si 

.ICF) , 

PFDELFRM ( . IPF 

Si 

•  ICF)  , 

PFUMDDLT, 

PFUMDUPD, 

PFUPDFRM { . IPF 

Si 

.ICF) , 

PHDELFRM ( . IPF 

Si 

.ICF) , 

PHISTDLT, 

PHISTUPD, 

PHUPDFRM ( . IPF 

Si 

•ICF) , 

PUDELFRM  ( . IPF 

Si 

.ICF) , 

PURCHDLT, 

PURCHUPD, 

PUUPDFRM ( . IPF 

Si 

. ICF)  , 

TVDELFRM ( . IPF  &  .ICF),  TVLEXDLT,  TVLEXUPD, 
TVUPDFRM  ( .  IPF  Si  .ICF) 


ENTRYTWO  STR  or  MUM  A  variable  which  is  updated 

by  entering  data  onto  to  a  update  or  deletion  selection 
form  or  an  error  form.  The  only  records  that  will  oe  dis 
played  contains  a  field's  value  that  matches  ENTRYONE 
(i.e.  ENTRYONE  =  "Smith"  will  only  display  records  tnat 
contains  LNAME  =  "Smith").  Used  if  there  are  two  fields 
which  may  be  used  for  updates  or  deletions.) 

ER2INDIR  (  .  IPF  St  .ICF),  EROINVEN ( . IPF  St  .ICF), 

EROPFUND ( . IPF  &  .ICF),  EROOPTAR ( . IPF  St  .ICF), 

INDIRUPD,  INUPDFRM ( . IPF  &  .ICF), 

INVENDLT,  INVENUPD,  IVDELFRM ( . IPF  &  .ICF), 

IVUPDFRvl  ( .  IPF  St  .ICF), 

OPDELFRM  ( .  IPF  St  .ICF),  OPTARDLT,  OPTARUPD, 

OPUPDFRM ( . IPF  S,  . ICF) , 

OTHERUPD,  OTUPDFRM(. IPF  &  .ICF), 

PFDELFRM ( . IPF  St  .ICF),  PFUNDDLT,  PFUNDUPD, 

PFUPDFRM  ( .  IPF  St  .ICF) 

FORMANS  STR  (1,  2,  3,  4  or  5)  The  displayed  menu's 

option  that  is  selected  by  the  user. 

3RWTABLE,  CRTRECRD,  DBFORM ( . IPF  &  .ICF),  DBMEM,  DSLTRSC1, 
SRRORFRM ( . IPF  &  .ICF), 

SXPENFRM ( . IPF  &  .ICF),  EXPENMEN, 

IMCOHFRM ( . IPF  S,  .ICF),  INCOMMEN, 


INDIRDLT, 

IMDIRFRM ( . IPF 

St 

.ICF)  , 

INDIRMEN, 

INDIRUPD, 

INVENDLT, 

INVENUPD, 

INVENFRM { . IPF 
MAINFRM ( . IPF 

St 

&  . 

.ICF)  , 
ICF)  , 

INVENMEN, 

MAINMSM, 

INVENRPT, 

OPTARDLT, 

OPTARFRM ( . IPF 

St 

.ICF)  , 

QPTARMEN, 

OPTARUPD 

OTHERDLT, 

OUTSTRPT, 

OTHERFRM ( . IPF 
PERSDMEN, 

St 

•  ICF)  , 

OTHERMEN, 

OTHERUPD, 

PFUNDDLT, 

PFUNDUPD, 

PFUNDFRM ( . IPF 

St 

.ICF)  , 

PFUNDMSN, 

PF'JNDRPT , 

PHISTDLT, 

PHISTUPD, 

PHISTFRM ( . IPF 
PRPRTMEN, 

St 

. ICF)  , 

PH I STM SN, 

PHISTRPT, 

PURCHDLT, 

PURC3FRM ( . IPF 

St 

.ICF)  , 

PURCHMSN , 

PURCHUPD, 

PURRTFRM ( 

. IPF  &  . ICF) , 

PURRTMEN, 

RSPRTFRM ( 

.ipf  &  .  ic; 

REPRTMEM,  REQUSRPT, 

TRAVFRM  ( .  IPF  S.  .ICF),  TRAVLMEN,  TVLSXDLT,  TVLEXUPD, 
UPRECRD 


INDIRECT. ASAPPRO  NUM  Sddddd.dd 

INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 

Read  Access  :  A . . 

Nrite  Access  :  A . 


INDIRECT. AUTH  NUM  Sddddddd.dd  Total  amount  authorized 

for  research  project. 

INDIRECT. ITS,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  ABCDEFGH IJXLMNOP 
Nrite  Access  :  A3CDEFGH I JXLMNOP 


INDIRECT. COSTCODE  STR  %5r  Costcode  or  Job  Order  #. 

INDIRECT. ITS,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL . ICF ,  UPDRSCRD 
Read  Access  :  A3CDSFGH IJXLMNOP 
Nrite  Access  :  ABCDEFGH I JXLMNOP 


INDIRECT. DEPTIC  NUM  $ddddd.dd  Amount  anticipated  for 
indirect  costs. 

INDIRECT. ITS,  INDIRECT,  INDIRECT. ICF ,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  A3CDEFGH I JXLMNOP 
Nrite  Access  :  ABCDEFGH I JXLMNOP 


INDIRECT. DOCS  STR  %l5r  Document  #. 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 

Read  Access  :  A . 

Nrite  Access  :  A . 


INDIRECT. ENTRY  NUM  dd-dd-bd  Date  the  entry  is  made. 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  A3CDEFGH I JXLMNOP 
Nrite  Access  :  A3CDEFGH I JXLMNOP 


INDIRECT. ESTIMATE  NUM  Sddddddd.Jd  Estimated  cost  of  researcn 
INDIRECT. ITS,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 

INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  ABCDEFGH IJXLMNOP 
Nrite  Access  :  ABCDEFGH IJXLMNOP 


INDIRECT. EXPIRE  NUM  dd-dd-dd  Date  of  expipation  of  funds. 
DELTREC2,  INDIRECT. ITS ,  INDIRECT,  INDIRECT*.  I C? ,  INDIRCRT, 
INDIRCRT. ICE,  INDIRDSL,  INDIRDEL . ICF 
Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH IJKLNNOP 


INDIRECT. ICRECD  NUM  Sddddd.dd  Actual  indirect  costs  re¬ 
ceived  from  project. 

INDIRECT.  IT3*,  INDIRECT,  INDIRECT.  ICF ,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  A3CDEFGH I J XLMNOP 
Write  Access  :  A3CDEFGHIJKLMN0P 


INDIRECT. MIPR#  3TR  %15r  MIPR#  from  acceptance  docu¬ 

ment  . 

INDIRECT. ITS,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 

INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  A3CDEFGH I J XLMNOP 
Mrite  Access  :  A3CDEFGHIJKLMN0P 


INDIRECT. PERIOD  STR  %20r  Dates  specified  on  proposal 

for  oerformance  of  research. 

INDIRECT. IT3,  INDIRECT,  INDIRECT . ICF ,  INDIRCRT, 

INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  A3CDEFGHIJXLMN0P 
Write  Access  :  A3CDEFGH I J XLMNOP 


INDIRECT. PRINCIPL  STR  %20r  Last  name  of  principal  inves 

tigator . 

3RWTA3LE,  INDIRECT. ITS ,  INDIRECT,  INDIRECT . ICF ,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL . ICF ,  UPDRECRD 
Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH I J XLMNOP 


INDIRECT. PROPOSAL  STR  %130r  Title  of  proposal. 

INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL . ICF 
Read  Access  :  A8CDEFGH IJXLMNOP 
./rice  Access  :  A3CDEFGH IJXLMNOP 


STR  %25r 


Reference  #  from  acceptanc 


INDIRECT. REP# 
document . 

INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT . ICF ,  INDIRDEL,  INDIRDEL . ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDSFGHIJKLMN0P 


INDIRECT. REMARKS  STR  %50r  Remarks. 

INDIRECT. IT3,  INDIRECT,  INDIRECT .  ICF ,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  A3CDEFGHIJKLMN0P 


INDIRECT. SEGMENT  STR  %6r  Segment  # 

INDIRECT. ITS,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 

Read  Access  :  A . 

Write  Access  :  A . 


INDIRECT. SERIALS  NUM  dddd-dddd  Serial  # 

INDIRECT. IT3,  INDIRECT,  INDIRECT . ICF ,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 

Read  Access  :  A . 

Write  Access  :  A . 


INDIRECT. SPONSOR  STR  %40r  Name  of  project  soonsor. 

INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF ,  INDIRCRT," 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGHIJKLMNOP 


INDIRECT. STAFFL3R  MUM  Sddddd.dd  Total  of  suooort  laoor. 
INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH I JKLMNOP 


INDIRECT. STATUS  STR  %25r  Status  of  orooosal. 

INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


INVENTOR. COST  NUM  Sdddddd.dd 

INVENTOR. IT3,  INVENTOR,  INVENTOR . ICF ,  INVENCRT, 
INVENCRT . ICF ,  INVENDEL,  INVSNDEL . ICF ,  INVSNRPT.TPL 

Read  Access  :  A . 

Write  Access  :  A . 


INVENTOR. DESCRIPT  STR  %50r 

INVENTOR. IT3,  INVENTOR,  INVENTOR. ICF ,  INVENCRT, 
INVENCRT. ICF,  INVENDEL,  INVENDEL. ICF,  INVENRPT . TPL 

Read  Access  :  A . . . 

Write  Access  :  A . 


INVENTOR. ISSUE  STR  %25r 

INVENTOR. ITS,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT. ICF,  INVENDEL,  INVENDEL . ICF ,  INVSNRPT.TPL 

Read  Access  :  A . 

Write  Access  :  A . 


INVENTOR. LOCATION  STR  %7r 

INVENTOR. IT3,  INVENTOR,  INVENTOR. ICF ,  INVENCRT, 
INVENCRT. ICF,  INVENDEL ,  INVENDEL . ICF ,  INVSNRPT.TPL 

Read  Access  :  A . 

Write  Access  :  A . 


INVENTOR. PA#  STR  %6r 

3RWTA3LS,  DELTREC2 ,  INVENTOR. IT3 ,  INVENTOR,  INVENTOR. IC 
INVENCRT,  INVENCRT. ICF,  INVENDEL,  INVENDEL . ICF , 
INVENRPT. TPL,  UPDRECRD 

Read  Access  :  A . 

Write  Access  :  A . 


INVENTOR. P04  STR  ^9r 

INVENTOR. IT3,  INVENTOR,  INVENTOR. ICF ,  INVENCRT, 
INVENCRT. ICF,  INVENDEL,  INVENDEL . ICF ,  INVENRPT. TPL 

Read  Access  :  A . 

Write  Access  :  A . 


INVENTOR. RECEIVED  NUM  dd-dd-dd 

INVENTOR. IT3,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT. ICF,  INVENDEL,  INVENDEL . ICF ,  INVENRPT. TPL 

Read  Access  :  A . 

Write  Access  :  A . 


INVENTOR. SERIAL#  STR  %12r 

DELTREC2,  INVENTOR. ITB ,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT .  ICF  ,  INVENDEL,  INVENDEL . ICF ,  INVENRPT . TPL , 
UPDRECRD 

Read  Access  :  A . 

Write  Access  :  A . 


INVENTOR. VENDOR  STR  %40r 

INVENTOR. ITB,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT. ICF,  INVENDEL,  INVENDEL . ICF ,  INVENRPT. TPL 

Read  Access  :  A . . . 

Write  Access  :  A . 


OPTAR. ACTUAL  NUM  $dddddd.dd  Changes  in  authorized. 

OPTAR. ITS ,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT . ICF , 
OPTARDEL ,  OPTARDEL . I CF 

Read  Access  :  A . 

Write  Access  :  A..... . 


OPTAR. AUTH  NUM  Sdddddd.dd  Total  amount  authorized. 

OPTAR. ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF , 
OPTARDEL ,  OPTARDEL . I CF 
Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  ABCDEFGHIJXLMNOP 


OPTAR. DIFFER  Virtual  field  :  ((ACTUAL  -  AUTH)) 

OPTAR. ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF , 
OPTARDEL,  OPTARDEL. ICF 
Read  Access  :  A . 


OPTAR. ENTRY  NUM  dd-dd-dd  Date  that  record  is  entered. 

DELTREC2 ,  OPTAR. IT3,  OPTAR,  OPTAR. ICF,  OPTARCRT, 

OPTARCRT. ICF,  OPTARDEL,  OPTARDEL . ICF ,  UPDRECRD 
Read  Access  :  ABCDEFGHIJXLMNOP 
write  Access  :  ABCDEFGHIJXLMNOP 


OPTAR. RECEIVED  NUM  dd-dd-dd  Date  of  latest  authorization 
memo . 

3RWTA3LE,  DSLTREC2 ,  OPTAR. ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT, 
OPTARCRT. ICF,  OPTARDEL,  OPTARDEL . ICF ,  UPDRECRD 
Read  Access  :  ABCDEFGHIJXLMNOP 
Write  Access  :  ABCDEFGHIJXLMNOP 
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OPTAR. TACTUAL  NUM  $dddddd.dd  Changes  in  travel  authorized 
OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT ,  OPTARCRT. ICF, 
OPTARDEL,  OPTARDEL .ICF 

Read  Access  :  A . . . 

'//rite  Access  :  A . 


OPTAR. TAUTH  NUM  $dddddd.dd  Amount  designated  for  travel 

OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF, 
OPTARDEL,  OPTARDEL. ICF 
Read  Access  :  ABCDEFGH I JXLMNOP 
Write  Access  :  ABCDEFGH I JKLMNOP 


OPTAR. TDIFFER  Virtual  field  :  ((TACTUAL  -  TAUTH)) 

OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF , 
OPTARDEL ,  OPTARDEL . ICF 
Read  Access  :  A . 


OTHER. AUTH  NUM  Sdddddd.dd  Amount  authorized  for 

Deoartment  Expenditure. 

OTHER. IT3,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT. ICF,  OTHERDEL,  OTHERDEL. ICF 
Read  Access  ;  ABCDEFGH I JXLMNOP 
Write  Access  :  ABCDEFGH I JKLMNOP 


OTHER. COSTCODE  STR  %5r  Costcode  or  Joo  Order  #. 

OTHER. IT3,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT. ICF,  OTHERDEL,  OTHERDEL . ICF ,  UPDRSCRD 
Read  Access  :  A3CDEFGH I JKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


OTHER. ENTRY  NUM  dd-dd-dd  Date  the  entry  is  made. 

OTHER. IT3,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT. ICF,  OTHERDEL,  OTHERDEL. ICF 
Read  Access  :  A3CDEFGH I JXLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


OTHER. EXPIRE  NUM  dd-dd-dd  Date  of  exoiration  of  funds. 

DELTREC2,  OTHER. IT3,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT. ICF,  OTHERDEL,  OTHERDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH I J KLMNOP 


STR  %20r 


Last  name  of  principal 


OTHER. PRINCIPL 

invesigator . 

3RWTA3LE,  OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT. ICF,  OTHERDEL,  OTHERDEL . ICF ,  UPDRECRD 
Read  Access  :  A3CDEFGH IJKLMNOP 
N rite  Access  :  ABCDEFGH IJKLMNOP 


OTHER. PROPOSAL  STR  %130r  Title  of  proposal. 

OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT. ICF,  OTHERDEL,  OTHERDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


OTHER. REMARKS  STR  %50r  REMARKS 

OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT. ICF,  OTHERDEL,  OTHERDEL. ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 


OTHER. SPONSOR  STR  %35r  Name  of  project  sponsor. 

OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT. ICF,  OTHERDEL,  OTHERDEL. ICF 
Read  Access  ;  ABCDEFGH I JXLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


OTHER. STATUS  STR  %25r  Status  of  funds. 

OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT. ICF,  OTHERDEL,  OTHERDEL . ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PASSCOND  NUM  0,  1  or  2  A  variable  used  to  determine 

which  condition  has  been  selected  by  a  user  for  deleting  a 
record  from  a  taole.  (0  =  only  1  condition  displayed  oy 
deletion  form,  1  =  1st  condition  was  selected  and  2  =  2nd 
condition  was  selected) 

DELTREC1 ,  INDIRDLT,  INVENDLT,  OPTARDLT,  OTHERDLT, 

PFUNDDLT ,  PHISTDLT,  PURCHDLT,  TVLEXDLT 


PASSVAR  STR  or  NUM  A  variable  which  is  used  to 

determine  which  selection  criterion  is  used  to  delete  a 
record.  (DELTVAR  equals  a  soecific  field's  value.) 
DELTREC1 ,  INDIRDLT,  INVENDLT,  OPTARDLT,  OTHERDLT, 
PFUNDDLT,  PHISTDLT,  PURCHDLT,  TVLEXDLT 


The  name  of  a  taole  that 


PAST ABLE  STR 

have  a  record  deleted  from  it. 
DELTREC1,  DELTREC2 


PFUNDING. AMOUNT  MUM  Sddddd.dd  $Amount  charged  co  costcode. 
PFUNDING . ITS ,  PFUNDING,  PFUNDING . ICF ,  PFUNDCRT , 

PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT. TPL 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PFUNDING. CODE  STR  %3r  Department  Code 

PFUNDING. IT3,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL. ICF 

Read  Access  :  A . 

Write  Access  :  A . 


PFUNDING. COSTCODE  STR  ?>5r  Costcode  or  Joo  Order# 

PFUNDING. IT3,  PFUNDING,  PFUNDING . ICF ,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL . ICF ,  PFUNDRPT. TPL 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PFUNDING. DAYS  STR  %5r  #  of  days. 

PFUNDING. ITS,  PFUNDING,  PFUNDING . ICF ,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL . ICF ,  PFUNDRPT. TPL 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  A3CDEFGHIJKLMN0P 


PFUNDING. ENTRY  NUM  dd-dd-dd  Date  of  item  entry. 

PFUNDING. ITS,  PFUNDING,  PFUNDING . ICF ,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PFUNDING . FNAME  STR  %15r  Full  first  name. 

PFUNDING. ITS,  PFUNDING,  PFUNDING . ICF ,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL . ICF ,  PFUNDRPT. TPL 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
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PFUNDING . FUNDFROM  NUM  dd-dd-dd  Date  funding  began. 
PFUNDING . ITB ,  PFUNDING,  PFUNDING . ICF ,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL ,  PFUNDDEL. ICF,  PFUNDRPT . TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH I JKLNNOP 


PFUNDING. FUNDTO  NUM  dd-dd-dd  Date  funding  ends. 
PFUNDING. ITB,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT. TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PFUNDING. HOURS  NUM  d 

PFUNDING. ITB,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL . ICF ,  PFUNDRPT. TPL 

Read  Access  :  A . 

Write  Access  :  A . 


PFUNDING. HRSWK  NUM  dd  Hours  per  week. 

PFUNDING. IT3,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL . ICF ,  PFUNDRPT. TPL 

Read  Access  :  A . 

Write  Access  s  A . 


PFUNDING. LABOR#  NUM  dd-dd-dd  Date  of  funding  memo. 

DELTREC2 ,  PFUNDING . IT3 ,  PFUNDING,  PFUNDING . ICF ,  PFUNDCRT 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL . ICF ,  UPDRECRD 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PFUNDING. LNAME  STR  %25r  Full  last  name. 

BRWTABLE ,  DELTREC2,  PFUNDING . ITB ,  PFUNDING,  PFUNDING. ICF 
PFUNDCRT,  PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL . ICF , 

PFUNDRPT. TPL,  UPDRECRD 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PFUNDING. RATS  NUM  $ddd.dd  Pay  rate. 

PFUNDING. IT3,  PFUNDING,  PFUNDING . ICF,  PFUNDCRT, 
PFUNDCRT. ICF,  PFUNDDEL,  PFUNDDEL . ICF ,  PFUNDRPT. TPL 

Read  Access  :  A . 

Write  Access  :  A. . 


PH I STORY. BILLET#  STR  %4r  Billet#  assigned  oy  CPO. 

PHISTORY . ITB ,  PHISTORY,  PHISTORY . ICF ,  PHISTCRT, 
PHISTCRT . ICE  ,  PHISTDEL,  PH I3TDEL . IC? ,  PHISTRPT.TPL 
Read  Access  :  A3CDEFGH IJXLMMOP 
W  rite  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. DOB  MUM  dd-dd-dd  Date  of  birth. 

PHISTORY. ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. EFFECTIV  NUM  dd-dd-dd  Effective  date  of  personnel 
changes . 

PHISTORY. IT3,  PHISTORY,  PH I3TORY . ICF ,  PHISTCRT, 

PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  A3CDEFGH IJXLMMOP 
Write  Access  :  A3CDEFGH IJXLMMOP 


PHISTORY. ENTRY  MUM  dd-dd-dd  Date  of  entry. 

PHISTORY. ITB,  PHISTORY,  PH ISTORY . ICF ,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  A3CDEFGH IJXLMMOP 


PHISTORY. ES  MUM  dd-dd-dd  Date  elements  and  standards 

set  for  performance  review. 

PHISTORY. IT3,  PHISTORY,  PH ISTORY . ICF ,  PHISTCRT, 

PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH IJXLMMOP 


PH ISTORY . EXPIRE  MUM  dd-dd-dd  Date  of  expiration  of  tem¬ 
porary  aDoo intments . 

PHISTORY'.  IT3,  PHISTORY,  PH  ISTORY  .  ICF  ,  PHISTCRT, 

PHISTCRT. ICF,  PHISTDEL,  PH ISTDEL . ICF ,  PHISTRPT.TPL 
Read  Access  :  A3CDSFGH IJXLMMOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY . FMAME  STR  %15r  Full  first  name. 

PHISTORY. ITB,  PHISTORY,  PH ISTORY . ICF ,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PH ISTDEL . ICF ,  PHISTRPT.TPL 
Read  Access  :  A3CDEFGH IJXLMMOP 
Write  Access  :  A3CDEFGH IJKLMNOP 


PH I STORY. GRADE  NUM  dd  Grade  level. 

PH I STORY . ITB ,  PH I STORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PH ISTDEL . ICF ,  PHISTRPT.TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PH ISTORY. HRSWK  NUM  dd  #  of  hours  worked  per  week. 

PHISTORY. ITS ,  PH I STORY ,  PHISTORY. ICF,  PHISTCRT, 

PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  ABCDEFGH I J KLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PHISTORY. JOBTITLE  STR  %30r  Title  of  position. 

PHISTORY. ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF,  PHISTRPT.TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PH I STORY. L NAME  STR  %25r  Full  last  name. 

BRWTABLE,  DETREC2 ,  PHISTORY . IT3 ,  PHISTORY,  PHISTORY. ICF, 
PHISTCRT,  PHISTCRT. ICF,  PHISTDEL,  PH ISTDEL . ICF , 
PHISTRPT.TPL,  UPDRECRD 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  j  ABCDEFGH IJKLMNOP 


PHISTORY. PD#  STR  %5r  Position  description  # 

assigned  by  CPO. 

PHISTORY. ITB,  PHISTORY,  PH ISTORY . ICF ,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PHISTORY. RATE  Sddd.dd  Hourly  rate. 

Virtual  field  :  (((SALARY  /  2037)  *  3)  *  1.30000) 

PHISTORY. ITB,  PHISTORY,  PH ISTORY . ICF ,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 


PH ISTORY. REMARKS  STR  %100r  Remarks. 

PHISTORY. IT3,  PHISTORY,  PH  I  STORY . ICF ,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
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PH I STORY. SALARY  NUM  $ddddd.dd  Annual  salary. 

PHlSTORY . ITS ,  PH I STORY ,  PHISTORY . ICF ,  PHISTCRT, 
PH ISTCRT . IC?  ,  PHISTDEL,  PHISTDEL.ICF 
Read  Access  :  ABCDEFGH I J XLMNOP 
'.trite  Access  :  ABCDEFGH IJKLMNOP 


PHISTORY. SERIES  NUM  ddddd  Series  classification. 

PHISTORY. ITS,  PHISTORY,  PHISTORY . ICF ,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL ,  PHISTDEL.ICF,  PHISTRPT.TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
write  Access  :  ABCDEFGH I JKLMNOP 


PHISTORY. STATUS  STR  %6r  Type  of  aopointment . 

PHISTORY. IT3,  PHISTORY,  PHISTORY . ICF ,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL.ICF 
Read  Access  :  A3CDEFGH I JKLMNOP 
Write  Access  :  A3CDEFGH I JKLMNOP 


PHISTORY. STEP  NUM  dd  Step  level. 

PHISTORY. IT3,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL . ICF ,  PHISTRPT.TOL 
Read  Access  :  ABCDEFGH I JKLMNOP 
Write  Access  :  ABCDEFGH I JKLMNOP 


PHISTORY. SUPERVSR  STR  %25r  Last  name  of  workload  super 

visor. 

PHISTORY. ITS,  PHISTORY,  PH ISTORY . ICF ,  PHISTCRT, 

PHISTCRT. ICF,  PHISTDEL,  PHISTDEL.ICF,  PHISTRPT.TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PH ISTORY. WORKUMIT  STR  %10r  Workunit. 

PHISTORY. IT3,  PHISTORY,  PH ISTORY . ICF ,  PHISTCRT, 
PHISTCRT. ICF,  PHISTDEL,  PHISTDEL.ICF,  PHISTRPT.TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PURCHASE . CODE  STR  %3r  Department  code.  (See  data 

sources  in  User's  Manual.) 

PURCHASE. IT3,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 

PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
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PURCHASE. COSTCODE  STR  %5r  Costcode  or  JON. 

PURCHASE. IT3,  PURCHASE,  PURCHASE . ICP ,  PURCHCRT, 
PURCHCRT. ICP,  PURCHDEL,  PURCHDEL . ICP ,  REQUSRPT.TPL 
Read  Access  :  AflCDEFGH I J KLMNOP 
Write  Access  :  ASCDEFGH I J KLMNOP 

PURCHASE. DESCRIPT  STR  %50r  Item  descriotion. 

PURCHASE. ITB,  PURCHASE,  PURCHASE . ICP ,  PURCHCRT, 
PURCHCRT. ICP,  PURCHDEL,  PURCHDEL. ICP,  REQUSRPT.TPL 
Read  Access  :  ABCDEFGH I J KLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PURCHASE. DOCS  STR  %10r 

3RWTABLE,  DELTREC2,  PURCHASE . ITB ,  PURCHASE,  PURCHASE. ICP, 
PURCHCRT,  PURCHCRT. ICF,  PURCHDEL,  PURCHDEL . ICF , 
REQUSRPT.TPL ,  UPDRECRD 
Read  Access  :  ABCDEFGH IJKLMNOP 
write  Access  :  ABCDEFGH IJKLMNOP 


PURCHASE. ENTRY  MUM  dd-dd-dd  Date  record  is  entered. 

PURCHASE. ITB,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL. ICP 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  i  ABCDEFGH IJKLMNOP 


PURCHASE. ESTIMATE  MUM  $ddddd.dd  Estimate  of  cost. 
PURCHASE. IT3,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  ;  ABCDEFGH IJKLMNOP 


PURCHASE. FIRM  MUM  Sddddd.dd  Actual  cost  of  item. 

PURCHASE. ITB,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PURCHASE. ISSUE  STR  %25r  Last  name  of  individual  item 

is  issued  to. 

PURCHASE. IT3,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 

PURCHCRT. ICF,  PURCHDEL,  PURCHDEL. ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 


PURCHASE. LOCATION  STR  %7r  Location  of  issue. 

PURCHASE. ITS,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGH I J KLHNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 


PURCHASE. PA#  STR  %17r  Plant  Account  #. 

PURCHASE. ITS,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGH I JKLMNOP 
Write  Access  :  A3CDEFGH I JKLMNOP 


PURCHASE . PO#  STR  %9r  Purchase  Order  #. 

PURCHASE. IT3,  PURCHASE,  PURCHASE. ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF,  REQUSRPT.TPL 
Read  Access  :  A3CDEFGH I JKLMNOP 
Write  Access  :  A3CDEFGH IJXLMMOP 


PURCHASE. PRIORITY  HUM  dd 

PURCHASE. IT3,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 


PURCHASE. QTY  STR  rrr 

PURCHASE. IT3,  PURCHASE,  PURCHASE. ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 

Read  Access  :  A . 

Write  Access  :  A . 


PURCHASE. RDD  HUM  dd-dd-dd  Required  delivery  dat 

PURCHASE. IT3,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF,  REQUSRPT.TPL 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDSFGH IJKLMNOP 


PURCHASE. RECEIVED  HUM  dd-dd-dd 

PURCHASE. IT3,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
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PURCHASE. REMARKS  STR  %50r 

PURCHASE. ITS,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGHIJXLMN0P 


PURCHASE. REQUESTR  STR  %25r  Last  name  of  individual  w no 
requested  the  purchase. 

PURCHASE. IT3,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 

PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 


PURCHASE. SERIAL#  STR  %12r 

PURCHASE. IT3,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 


PURCHASE. STOCK#  STR  %20r 

PURCHASE. ITB,  PURCHASE,  PURCHASE . ICF ,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF,  REQUSRPT.TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


PURCHASE. VENDOR  STR  %40r 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT. ICF,  PURCHDEL,  PURCHDEL.ICF,  REQUSRPT.TPL 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


TABLE  STR  The  name  of  a  taole  that 

one  of  the  following  functions  will  be  performed  on; 
orowse  the  table,  update  a  record  in  the  table,  create 
or  delete  a  record. 

3RWTA3LE ,  CRTRECRD,  DELTREC1 
INDIRDLT,  INDIRMEM,  INDIRUPD, 

INVENDLT,  INVENMEN,  INVENUPD, 

OPTARDLT ,  OPTARMEN,  OPTARUPD, 

OTHERDLT,  OTHERMEN,  OTHERUPD, 

PFUNDDLT,  PFUNDMEN,  PFUNDUPD, 

PHISTDLT,  PHISTMEN,  PHISTUPD, 

PURCHDLT ,  PURCHMEN,  PURCHUPD, 

TRAVLMEN,  TVLEXDLT,  TVLEXUPD, 

UPDRECRD 


TVLEXP. ADVANCE  NUM  $ddd.dd  ^Amount  of  advance. 

TVLEXP.IT3,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL ,  TVLSXDEL . ICF 
Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  AnCDEFGHIJXLMNOP 


TVLEXP. CLAIM  NUM  dd-dd-dd  Date  claim  is  filed. 

OUTSTRPT . TPL ,  TVLEXP. IT3,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL. ICF 
Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH I JXLMNOP 


TVLEXP. CODE  STR  %3r  Code  indicating  type  of 

travel;  recruit,  invitational,  regular,  or  association. 
TVLEXP. IT3,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 

TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL. ICF 
Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNO? 


TVLEXP. COSTCODE  STR  %5r  Costcode  or  joo  order#. 

OUTSTRPT. TPL,  TVLEXP. ITB,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL ,  TVLEXDEL. ICF 
Read  Access  :  A3CDEFGH I JXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 


TVLEXP . DATSDEP  NUM  dd-dd-dd  Date  travel  originated. 

3RWTABLE,  TVLEXP. IT3,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL. ICF 
Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 


TVLEXP. DATERET  NUM  dd-dd-dd  Date  travel  is  concluded. 

TVLEXP. IT3,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 

TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL. ICF 
Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNO? 


TVLEXP. DOC#  STR  %10r  Travel  order  #. 

3RWTA3LS,  DELTREC2 ,  OUTSTRPT . TPL ,  TVLEXP. IT3,  TVLEXP, 
TVLEXP. ICF,  TVLEXCRT,  TVLEXCRT. ICF ,  TVLEXDEL,  TVLEXDEL . I Cl 
UPDRECRD 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 


TVLEXP. DOV#  STR  rrrrr  Disbursing  Office  Voucher  #. 

OUTSTRPT . TPL ,  TVLEXP. ITB,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL . ICF 

Read  Access  :  A . 

Write  Access  :  A . 


TVLEXP. ENTRY  NUM  dd-dd-dd  Date  entry  of  record. 

TVLEXP. ITB,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 

TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL. ICF 
Read  Access  :  ABCDEFGH I JKL24NOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


TVLEXP. ESTIMATE  NUM  $dddd.dd  Estimated  cost  of  travel. 
TVLEXP. ITB,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 

TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL .ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


TVLEXP. FIRM  NUM  $ddddd.dd  Actual  cost  of  travel. 

TVLEXP. ITB,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 

TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


TVLEXP. LOCATION  STR  %25r  Destination  of  traveler. 

TVLEXP. IT3,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 

TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 


TVLEXP. REQUE3TR  STR  %20r  Name  of  travler. 

OUTSTRPT. TPL,  TVLEXP. IT3 ,  TVLEXP,  TVLEXP. ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL. ICF 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGHIJXLMN0P 


UPDATVAR  STR  or  NUM  A  variaole  which  is  used  to 

determine  which  selection  criterion  is  used  to  update  a 
record.  (UPDATVAR  equals  a  specific  field's  value.) 
INDIRUPD,  INVENUPD,  OPTARUPD,  OTHERUPD,  PFUNDUPD,  PHISTUPD, 
PURCHUPD,  TVLEXUPD,  UPDRECRD 


133 


APPENDIX  I 
PROGRAM  LISTINGS 


TABLE  OF  CONTENTS 


FILE 

PAGE 

FILE 

PAGE 

brwtaDle 

135 

outstrpt 

152 

crtrecrd 

137 

persdmen 

153 

dDmen 

139 

pf unddlt 

154 

deltrecl 

140 

pf undmen 

155 

deltrec2 

141 

of undrpt 

15  5 

expenmen 

146 

pf undupd 

157 

incoramen 

147 

phistdlt 

153 

indirdlt 

143 

phistmen 

169 

indirmen 

149 

phistrpt 

170 

indirupd 

150 

pnistupd 

171 

invendlt 

151 

prprtmen 

172 

invenmen 

152 

purchdlt 

173 

invenrpt 

153 

purchmen 

174 

invenupd 

154 

purcnupd 

175 

ma inmen 

155 

purrtmen 

17  5 

optardlt 

156 

reprtmen 

177 

optarmen 

157 

requsrpt 

173 

optarupd 

153 

travlmen 

179 

otnerdlt 

159 

tvlexdlt 

130 

otnermen 

160 

tvlexupd 

131 

otnerupd 

161 

updr ecrd 

132 

This  appendix  contains  listings  of  all  the  AS  System's 
perform  files,  except  menus  and  forms.  The  code  for  the  menus 
and  forms  can  oe  "looked  at"  oy  using  K-Paint. 
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/*  BRWTABLE. IPF  -  This  module  browses  a  table. 

/*  Called  by:  INDIRMEN. IPF,  OPTARMEN. IPF,  PFUNDMEN. IPF, 

/*  PHISTMEN. IPF ,  PURCHMEN. IPF ,  TRAVLMEN. IPF, 

/*  OTHERMEN. IPF,  INVENMEN. IPF 

/*  Calls:  INDIRECT. IPF,  OPTAR.IPF,  PFUNDING . IPF , 

/*  PHISTORY. IPF,  PURCHASE. IPF,  TVLEXP.IPF, 

/*  OTHER. IPF,  TABLDFRM. IPF,  INVENTOR. IPF 

/*  Author:  R.  Booker,  15  Oct  85 

E.ICAS  =  TRUE;  !  ignore  case  differences  among  string  values 
PERFORM  TABLDFRM; 

PUTFORM  TABLDFRM; 

TA3LE  =  #A; 

TEST  TABLE 

CASE  "INDIRECT": 

USE  INDIRECT; 

SORT  INDIRECT  3Y  AZ  PRINCIPL; 

LOAD  FROM  INDIRECT;  I  the  indirect  funds  entry  form 
BROWSE  INDIRECT  ALL  WITH  INDIRECT; 

BREAK ; 

CASE  "INVENTOR": 

USE  INVENTOR; 

SORT  INVENTOR  3Y  AZ  PAY¬ 
LOAD  FROM  INVENTOR;  !  the  inventory  entry  form 
BROWSE  INVENTOR  ALL  WITH  INVENTOR; 

BREAK ; 

CASE  "OPTAR": 

USE  OPTAR; 

SORT  OPTAR  3Y  AZ  RECEIVED; 

LOAD  FROM  OPTAR;  !  the  OPTAR  entry  form 
BROWSE  OPTAR  ALL  WITH  OPTAR; 

BREAK; 


CASE  "OTHER": 

USE  OTHER; 

SORT  OTHER  BY  A2  PRINCIPL; 

LOAD  PROM  OTHER;  !  the  other  funds  entry  form 
BROWSE  OTHER  ALL  WITH  OTHER; 

BREAK; 

CASE  "PFUNDING": 

USE  PFUNDING; 

SORT  PFUNDING  3Y  A2  LNAME; 

LOAD  FROM  PFUNDING;  i  the  personnel  funding  entry  form 
BROWSE  PFUNDING  ALL  WITH  PFUNDING; 

BREAK; 

CASE  "PH I STORY": 

USE  PHI3TORY ; 

SORT  PHISTORY  BY  A2  LNAME; 

LOAD  FROM  PHISTORY;  i  the  personnel  history  entry  form 
BROWSE  PHISTORY  ALL  WITH  PHISTORY; 

3REAK ; 

CASE  "PURCHASE": 

USE  PURCHASE; 

SORT  PURCHASE  BY  A2  DOC#; 

LOAD  FROM  PURCHASE;  !  the  purchase  entry  form 
BROWSE  PURCHASE  ALL  WITH  PURCHASE; 

3 REAR; 

CASE  "TVLEXP" : 

USE  TVLEXP; 

SORT  TVLEXP  3Y  A2  DATEDEP ,  DOC#; 

LOAD  FROM  TVLEXP;  !  the  travel  expenses  entry  form 
BROWSE  TVLEXP  ALL  WITH  TVLEXP; 

BREAK ; 

ENDTEST; 

FINISH  ALL; 

FORMANS  =  " 

E . I CAS  =  FALSE; 

RETURN; 
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/*  CRTRECRD. IPF  -  This  module  creates  a  record  in  a  passed 
/*  taole. 

/*  Called  by:  PFUNDMEN. IPF,  PHISTMEM. IPF,  TRAVLMEN. IPF, 

/*  INDIRMEN.  IPF ,  OTHERMEN.  IPF ,  PURCHMEN.  IPF , 

/*  OPT ARMEN. IPF,  INVENMEN. IPF 

/*  Calls:  INDIRCRT. IPF,  OPTARCRT. IPF,  PFUNDCRT. IPF, 

/*  PHISTCRT. IPF,  PURCHCRT. IPF ,  TVLEXCRT.IPF 

/*  OTHERCRT. IPF,  TABLDFRM. IPF ,  INVEMCRT.IPF 

/*  Author:  R.  Booker  26  Jan  86 

E.LMOD=FALSE;  !  only  blanks  will  first  appear  in  the  creation 
!  form 

PERFORM  TABLDFRM; 

PUTFORM  TABLDFRM; 

TABLE  =  #A; 

TEST  TABLE 

CASE  "INDIRECT": 

USE  INDIRECT; 

LOAD  FROM  INDIRCRT;  !  the  indirect  cost  form 
CREATE  RECORD  FOR  INDIRECT  WITH  INDIRCRT; 

BREAK; 

CASE  "INVENTOR" : 

USE  INVENTOR; 

LOAD  FROM  INVENCRT;  !  the  inventory  form 
CREATE  RECORD  FOR  INVENTOR  WITH  INVENCRT; 

BREAK; 

CASE  "OPTAR": 

USE  OPTAR; 

LOAD  FROM  OPTARCRT;  !  the  optar  form 

E.ICOM  =  TRUE;  I  immediate  compute  of  virtual  field 

CREATE  RECORD  FOR  OPTAR  WITH  OPTARCRT; 

E.ICOM  =  FALSE;  BREAK; 


CASE  "OTHER": 

USE  OTHER; 

LOAD  FROM  OTHERCRT;  !  the  other  funds  form 
CREATE  RECORD  FOR  OTHER  WITH  OTHERCRT; 

3REAK ; 

CASE  "PFUNDING": 

USE  PFUNDING; 

LOAD  FROM  PFUNDCRT;  !  the  personnel  funding  form 
CREATE  RECORD  FOR  PFUNDING  WITH  PFUNDCRT; 

BREAK; 

CASE  "PHISTORY" : 

USE  PHISTORY; 

LOAD  FROM  PHISTCRT;  !  the  personnel  history  form 
CREATE  RECORD  FOR  PHISTORY  WITH  PHISTCRT; 

BREAK; 

CASE  "PURCHASE": 

USE  PURCHASE; 

LOAD  FROM  PURCHCRT;  I  the  purchase  form 
CREATE  RECORD  FOR  PURCHASE  WITH  PURCHCRT ; 

BREAK; 

CASE  "TVLEXP": 

USE  TVLEXP ; 

LOAD  FROM  TVLEXCRT;  !  the  travel  expenses  form 
CREATE  RECORD  FOR  TVLEXP  WITH  TVLEXCRT; 

BREAK; 

ENDTEST; 

FINISH  ALL; 

FORMANS  =  "  ";  !  places  a  olank  in  calling  module  prompt 

E . LMOD=TRUE ;  !  default 

RETURN; 
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/*  DBMEN.IPF  - 
/*  (1.0) 

/* 

/*  Called  by: 
/*  Calls: 

/* 

/*  Author: 


Brings  up  the  data  base  menu,  and  perform 
either  EXPENMEN. IPF,  INCOMMEN.IPF  or 
INVENMEN. IPF 
MAINMEN. IPF 

DBFRM.IPF,  ERRORFRM. IPF ,  EXPENMEN. IPF, 
INCOMMEN. IPF ,  INVENMEN. IPF 
R.  Booker  15  Jan  86 


FORMANS  =  "  "; 


WHILE  FORMANS  NE  "4"  DO 

PERFORM  D3FRM; 
PUTFORM  D3FRM; 
GETFORM  DBFRi'l; 


!  don't  exit  from  module 

i  expenses  form 


WHILE  NOT  (FORMANS  IN  [ "  1"  ,  " 2"  ,  " 3 "  ,  "  4"  ]  )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

ENDWHILE; 

TEST  FORMANS 


CASE 

"1": 

PERFORM 

"EXPENMEN. IPF"; 

3 REAR; 

CASE 

"2": 

PERFORM 

"INCOMMEN. IPF"  ; 

BREAK; 

CASE 

"3": 

PERFORM 

" INVENMEN. IPF" ; 

BREAK; 

ENDTSST; 

SNDWHILE;  1  f ormans  =  "4" 

FORMANS  =  "  " ;  !  places  a  blank  at  calling  menu  prompt 


RETURN 


/*  DELTREC1 . IPF  -  This  module  gives  a  user  another  chance  V 
/*  before  deleting  a  record.  */ 
/*  Called  oy:  INDIRDLT. IPF,  OPTARDLT. IPF,  OTHERDLT . IPF ,  */ 
/*  PFUNDDLT. IPF,  PHISTDLT. IPF,  PURCHDLT. IPF,  */ 
/*  TVLEXDLT. IPF,  INVSNDLT.IPF  */ 
/*  Calls:  DELQSFRM. IPF ,  DELERFRM. IPF ,  DELTREC2. IPF  V 
/*  Author:  R.  3ooker,  30  Nov  85  */ 


E . I CAS  =  TRUE; 

TABLE  =  SA;  !  table  for  deletion,  passed  from  calling  module 

PASSVAR  =  #3 ;  !  value  of  condition  variaole  for  deletion 

PASSCOND  =  SC;  I  condition  for  deletion,  passed  from  calling 
!  module 

DELTANS  =*  "  ";  !  updated  by  DELQSFRM 

PERFORM  DELQSFRM;  !  checks  to  ensure  that  the  user  wants  to 
PUTFORM  DELQSFRM;  !  delete 
GETFORM  DELQSFRM; 

WHILE  MOT  (DELTANS  IN  ["Y","N"])  DO  !  check  input 
PERFORM  DELERFRM; 

PUTFORM  DELERFRM; 

G ETFORM  D EL ERFRM ; 

ENDWHILE; 

IF  DELTANS  =  "Y"  THEN 

PERFORM  "DELTREC2.  IPF"  USING  ’’TABLE",  "PASSVAR",  "PASSCOND 
END IF ; 

FORMANS  =  "  ";  I  places  a  blank  at  calling  menu  prompt 
RETURN; 


/*  DELTREC2.IPF  -  This  module  deletes  a  record  from  a  passed  */ 


/*  table.  V 
/*  Called  oy:  DELTREC1 . IPF  V 
/*  Calls:  IMDIRDEL. IPF,  OTHERDEL . IPF ,  PHISTDEL . IPF ,  */ 
/*  PURCHDEL.  IPF,  TVLEXDEL .  IPF,  DELETFRil.  IPF,  V 
/*  TABLDFRM. IPF,  PFUNDDEL. IPF,  OPTARDEL . IPF  */ 
/*  INVENDEL. IPF  */ 
/*  Author:  R.  Booker,  30  Nov  85  */ 


E.ICAS  =  TRUE;  !  ignore  case  differences  among  string  values 

PASTASLE  =  tA ;  1  taole  for  deletion,  passed  from  calling  module 

DELSTVAR  =  #3;  !  condition  variable  for  deletion 


COND  =  4C;  !  condition  for  deletion,  passed  from  calling 
!  module 

PERFORM  TABLDFRM; 

PUTFORM  TABLDFRM; 

TEST  PASTASLE  !  test  the  taole  which  will  oe  used  for  deletion 

CASE  "INDIRECT": 

USE  INDIRECT; 

LOAD  FROM  INDIRDEL;  !  the  indirect  cost  deletion  form 
BROWSE  INDIRECT  FOR  EXPIRE  =  DELETVAR  ALL  WITH  INDIRDEL; 
BREAK ; 


CASE  "INVENTOR": 

USE  INVENTOR? 

LOAD  FROM  INVENDEL; !  the  inventory  deletion  form 

IF  COND  =  1  THEN  !  browse  on  PA# 

BROWSE  INVENTOR  FOR  PA#  =  DELETVAR  ALL\ 

WITH  INVENDEL; 

ELSE 

IF  COND  =  2  THEN  !  delete  on  SERIAL# 

BROWSE  INVENTOR  FOR  SERIAL#  =  DELE  WAR  ALL\ 
WITH  INVENDEL; 

ENDIF ; 

ENDIF; 

3 RE AX; 

CASE  "OPTAR": 

USE  OPTAR; 

LOAD  FROM  OPTARDEL;  !  the  OPTAR  deletion  form 
IF  COND  =  1  THEN  l  browse  on  RECEIVED 

BROWSE  OPTAR  FOR  RECEIVED  =  DELETVAR  ALL\ 

WITH  OPTARDEL; 

ELSE 

IF  COND  =  2  THEN  !  browse  on  ENTRY 

BROWSE  OPTAR  FOR  ENTRY  =  DELETVAR  ALL\ 

WITH  OPTARDEL; 

ENDIF; 

ENDIF; 

BREAK; 

CASE  "OTHER": 

USE  OTHER; 

LOAD  FROM  OTHERDEL;  !  the  other  funds  deletion  form 
BROWSE  OTHER  FOR  EXPIRE  =  DELETVAR  ALL  WITH  OTHERDEL? 
BREAK; 


CASE  "PFUNDING" 


USE  PFUNDING; 

LOAD  FROM  PFUNDDEL;!  the  personnel  funding  deletion  form 

IF  COND  =  1  THEN  !  browse  on  LNAI-1E 

BROWSE  PFUNDING  FOR  LNAME  =  D2LETVAR  ALL\ 

WITH  PFUNDDEL; 

ELSE 

IF  COND  =  2  THEN  !  delete  or  LABORS 

BROWSE  PFUNDING  FOR  LABOR#  =  DELETVAR  ALL\ 

WITH  PFUNDDEL; 

ENDIF ; 

END IF; 

3REAK; 

CASE  "PHISTORY" ; 

USE  PHISTORY; 

LOAD  FROM  PHISTDEL;  !  the  personnel  history  deletion 

J  form 

3R0WSE  PHISTORY  FOR  LNAME  =  DELETVAR  ALL  WITH  PHISTDEL; 
BREAK; 

CASE  "PURCHASE": 

USE  PURCHASE; 

LOAD  FROM  PURCHDEL;  !  the  purchase  deletion  form 
BROWSE  PURCHASE  FOR  DOC#  =  DELETVAR  ALL  WITH  PURCHDEL; 
BREAK; 

CASE  "TVLEXP": 

USE  TVLEXP; 

LOAD  FROM  TVLEXDEL;  !  the  travel  expenses  deletion 

!  form 

BROWSE  TVLEXP  FOR  DOC#  =  DELETVAR  ALL  WITH  TVLEXDEL; 
BREAK; 


ENDTEST 


IF  #FOUND  =  TRUE  THEN  !  this  prevents  the  current  record  froni 

!  being  deleted  if  a  record  is  not  found 

PERFORM  DELSTFRM;  !  notification  that  a  record  is  being 
PUTFORM  DELETFRM;  1  deleted 

TEST  PASTABLS 

CASE  "INDIRECT": 

MARK  RECORDS  IN  INDIRECT  WITH  TRUE  CURRENT; 
COMPRESS  INDIRECT; 

BREAK; 

CASE  "INVENTOR": 

MARK  RECORDS  IN  INVENTOR  WITH  TRUE  CURRENT; 
COMPRESS  INVENTOR; 

BREAK; 

CASE  "OPTAR": 

MARK  RECORDS  IN  OPTAR  WITH  TRUE  CURRENT; 

COMPRESS  OPTAR; 

BREAK; 

CASE  "OTHER": 

MARK  RECORDS  IN  OTHER  WITH  TRUE  CURRENT; 

COMPRESS  OTHER; 

3REAK ; 

CASE  "PFUNDING": 

MARK  RECORDS  IN  PFUNDING  WITH  TRUE  CURRENT; 
COMPRESS  PFUNDING; 

3REAK; 


CASE  "PHISTORY": 

MARK  RECORDS  IN  PHISTORY  WITH  TRUE  CURRENT 
COMPRESS  PHISTORY; 

BREAK; 

CASE  "PURCHASE": 

MARK  RECORDS  IN  PURCHASE  WITH  TRUE  CURRENT 
COMPRESS  PURCHASE; 

BREAK; 

CASE  "TVLEXP": 

MARK  RECORDS  IN  TVLEXP  WITH  TRUE  CURRENT; 
COMPRESS  TVLEXP; 

BREAK; 

ENDTEST; 

END IF; 

FINISH  ALL; 

RETURN; 
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/*  EXPENMEN. IPF  -  3rings  up  the  expenses  menu  and  performs 
/*  (1.1)  either  PERSDMEN. IPF,  TRAVLMEN. IPF  or 

/*  PURCHMEN 

/*  Called  by:  DBMEN. IPF 

/*  Calls:  EXPENFRM. IPF,  ERRORFRI-1.  IPF,  PERSDMEN.  IPF, 

/*  TRAVLMEN. IPF,  PURCHMEN. IPF 

/*  Author:  R.  Booker  15  Jan  86 

FORMANS  =  "  "; 

WHILE  FORMANS  NE  "4"  DO  !  don't  exit  module 

PERFORM  EXPENFRM?  !  expenses  form 

PUTFORM  EXPENFRM; 

GETFORM  EXPENFRM; 

WHILE  NOT  (FORMANS  IN  [  "l" , "2" , "3" , " 4" ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

ENDWHILS; 

TEST  FORMANS 


CASE 

«•  ^  n  . 

PERFORM 

"PSRSDMEN. IPF" ; 

3  R^AX ; 

CASE 

"2"  : 

PERFORM 

"TRAVLMEN. IPF"  ; 

3 REAX ; 

CASE 

"3"  : 

PERFORM 

"PURCHMEN. IPF" ; 

3 RE AX; 

ENDTEST; 

ENDWHILS;  !  formans  =  "4" 

FOR.'tANS  =  "  !  places  a  olanx  at  calling  module  prompt 


RETURN; 


/*  INCOMMEN. IPF  (1.2)  */ 
/*  Brings  up  the  data  base  income  menu,  and  either  performs  V 
/*  OPTARMEN.IPF,  INDIRMEN.  IPF  or  OTHERMEN.  IPF  */ 
/*  Called  by:  D3MEN.IPF  */ 
/*  Calls:  INCOMFRM. IPF,  ERRORFRM. IPF,  OPT ARMEN. IPF,  */ 
/*  INDIRMEN. IPF,  OTHERMEN. IPF  */ 
/*  Author:  R.  Booker  15  Jan  36  V 


FORMANS  =  "  "; 

WHILE  FORMANS  NE  "4"  DO  i  don't  exit  module 

PERFORM  INCOMFRM;  !  data  base  menu 

PUTFORM  INCOMFRM; 

GET FORM  INCOMFRM; 

WHILE  NOT  (FORMANS  IN  ( " 1" , "2" , " 3" , " 4" ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

ENDWHILE; 

TEST  FORMANS 


CASE 

"1"  : 

PERFORM 

"OPT ARMEN. IPF" ; 

BREAK; 

CASE 

"2"  : 

PERFORM 

"INDIRMEN. IPF"; 

BREAK; 

CASE 

■«  *5  "  . 

J  • 

PERFORM 

"OTHERMEN. IPF"; 

3 REAR; 

ENDTEST; 

ENDWHILE;  1  f ormans  =  "4” 

FORMANS  =  "  ";  I  places  a  olank  at  calling  menu  prompt 

RETURN; 
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/*  INDIRDLT. IPF  (1.2. 2. 2) 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  the 
/*  indirect  funds  table. 

/*  Called  by:  INDIRMEN. IPF 

/*  Calls:  INDELFRM. IPF,  ER1INDIR. IPF ,  DELTRSC1.IPF 

/*  Author:  R.  Booker  22  Jan  86 

FORMANS  =  "  "; 

ENTRYONE  =0;  !  entered  from  indelfrm 

PASCOND  =0;  1  condition  for  deletion,  no  choice  =  0 

WHILE  ENTRYONE  =  0  DO  !  exit  from  module 

PERFORM  INDELFRM;  I  indirect  deletion  menu 

PUTFORM  INDELFRM; 

GETFORM  INDELFRM; 

WHILE  ENTRYONE  =  0  DO  I  check  input 
PERFORM  ER1INDIR; 

PUTFORM  ER1INDIR; 

GETFORM  ER1INDIR; 

ENDWHILZ; 

PERFORM  "DELTRECl. IPF"  USING  "\" INDIRSCT\" "  ,  " ENTRYONE" , \ 
"PASCOND" ; 

ENDWHILE;  !  formans  not  blank 

ENTRYONE  =  0; 

FORMANS  =  "  " ;  !  places  a  blank  at  calling  module  prompt 

RETURN; 


/*  INDIRMEN. IPF  -  Brings  up  the  menu  for  indirect  income  table*/ 
/*  (1.2.2)  and  offers  the  following  options:  browse  the*/ 


/*  INDIRECT  table,  add,  update  or  delete  a  */ 
/*  record  to  or  from  it,  and  to  quit.  */ 
/*  Called  by:  INCOMMEN. IPF  */ 
/*  Calls:  INDIRFRM. IPF,  ERRORFRM. IPF ,  3RWTABLE. IPF,  */ 
/*  INDIRUPD. IPF,  CRTRECRD . IPF ,  INDIRDLT. IPF  */ 
/*  Author:  R.  Booker  15  Jan  86  */ 


FORMANS  =  " 

WHILE  FORMANS  NE  "5"  DO  !  exit  from  module 

PERFORM  INDIRFRM;  l  indirect  cost  menu 

PUT  F  ORM  I ND I RF  RM ; 

GETFORM  INDIRFRM; 

1  check  input 

WHILE  NOT  (FORMANS  IN  ( " 1  * , " 2" , " 3 " , " 4" , " 5" ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

ENDWHILE; 


TEST  FORMANS 


CASE 

"1"  : 

PERFORM 

"3RWTA3LE. IPF" 

BREAK; 

CASE 

"2": 

PERFORM 

"INDIRUPD. IPF" 

CASE 

"3" : 

PERFORM 

"CRTRECRD. IPF" 

BREAK; 

CASE 

"4": 

PERFORM 

"INDIRDLT. IPF" 

ENDTEST; 


USING  "VINDIRECTX""  ; 
BREAK; 

USING  "\" INDIRECT\" " ; 


3REAK ; 


ENDWHILE; 
FORMANS  = 
RETURN; 


!  formans  =  "5" 

!  places  a  blank  at  calling  module  prompt 


»  n 


/*  INDIRUPD.IPF  -  Brings  up  the  menu  for  updating  of  the  */ 
/*  {1.2. 2.1)  indirect  funds  table.  */ 
/*  Called  by:  INDIRMEN.IPF  */ 
/*  Calls:  INUPDFRM.  IPF,-  ER2INDIR.  IPF ,  UPDRECRD.  IPF  */ 
/*  Author:  R.  3ooker  22  Jan  86  */ 


FORMANS  ■  " 

ENTRYONE  =  "  !  the  1st  condition  for  an  update,  entered  from 

i  inupdfrm 

ENTRYTWO  =  "  ";  I  the  2nd  condition  for  an  update,-  entered  from 

!  inupdfrm 

PASCOND  =0;  !  the  field  to  search  for  the  update 

WHILE  ENTRYONE  =  "  "  AND  ENTRYTWO  =  "  "  DO  !  exit  from  module 
PERFORM  INUPDFRM;  !  indirect  funding  update  menu 

PUTFORM  I NUPDFRM ; 

GETFORM  INUPDFRM; 

WHILE  ENTRYONE  ■  "  "  AND  ENTRYTWO  =  "  "  DO  !  check  input 
PERFORM  ER2INDIR; 

PUTFORM  ER2INDIR; 

GETFORM  ER2INDIR; 

ENDWHILE; 

IF  ENTRYONE  NE  "  "  THEN 

PASCOND  =1;  !  update  by  cost  code 

PERFORM  "UPDRECRD. IPF"  USING  "\" INDIRECT\" " , \ 
"ENTRYONE",  "PASCOND"; 

ELSE 


IF  ENTRYTWO  NE  "  "  THEN 

PASCOND  =  2;  !  update  by  principl 

PERFORM  "UPDRECRD. IPF"  USING  "\" INDIRECT\" " , \ 
"ENTRYTWO" ,  "PASCOND"; 


END IF ; 


END IF; 


ENDWHILE; 
ENTRYONE  = 
FORMANS  = 


"  . 


!  formans  not  blank 
ENTRYTWO  =  "  "; 
RETURN; 


I 


n  ft 
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/*  INVENDLT. IFF  (1.3.2) 

/*  3rings  up  the  menu  for  the  deletion  of  a  record  from  the 
/*  inventory  table. 

/*  Called  by:  INVENMEN.IPF 

/*  Calls:  IVDELFRM. IPF,  EROINVEN. IPF,  DELTREC1 . IPF 

/*  Author:  R.  Booker  25  Feb  86 


FORMANS  =  " 

ENTRYONE  =  "  " ;  !  entered  from  ivdelfrm 

ENTRYTWO  =  "  ";  i  entered  from  ivdelfrm 

PASCOND  =  0;  i  condition  for  deletion 

NHILS  ENTRYONE  =  "  "  AMD  ENTRY TWO  =  "  "  DO  !  exit  from  module 
PERFORM  IVDELFRM;  i  inventory  deletion  menu 

PUTFORM  IVDELFRM; 


GETFORM  IVDELFRM; 

WHILE  ENTRYONE  =  "  "  AND  ENTRYTNO  =  "  "  DO  !  check  input 
PERFORM  EROINVEN; 

PUTFORM  EROINVEN; 

GETFORM  EROINVEN; 

ENDWHILE; 

IF  ENTRYONE  NE  "  "  THEN 

PASCOND  =1;  !  delete  by  PA# 

PERFORM  "DELTREC1.  IPF"  USING  "\"  INVENTOR\"  "  ,  \ 

" ENTRYONE " ,  " PASCOND " ; 


ELSE 

IF  ENTRYTWO  NE  "  "  THEN 

PASCOND  =  2;  !  delete  by  SERIAL# 

PERFORM  "DELTREC1. IPF"  USING  " \" INVENTORY'  " , \ 
" ENTRYTWO" ,  "PASCOND" ; 


END IF; 


END IF; 
ENDWHILE; 
ENTRYONE  = 
FORMANS  = 


RETURN; 


!  formans  not  blank 
ENTRYTNO  =  "  "; 


!  places  a  olank  at  calling  module  prompt 


ft  I* 


/*  INVENMEN.IPF  -  Brings  up  the  menu  for  the  inventory  table  */ 
/*  (1.3)  and  offers  the  following  options:  orowse  the*/ 
/*  table,  update,  add,  or  delete  a  record,  or  */ 


/*  quit.  */ 
/*  Called  by:  DBMEN. IPF  */ 
/*  Calls:  INVENFRM.  IPF,  SRRORFRM.  IPF,  3RWTABLS.  IPF,  */ 
/*  INVENUPD. IPF,  CRTRECRD. IPF,  INVENDLT. IPF  */ 
/*  Author:  R.  Booker  25  Feb  36  */ 


FORMANS  =  "  "; 

WHILE  FORMANS  NE  "5"  DO  1  exit  from  module 

PERFORM  INVENFRM;  1  inventory  menu 

PUTFORM  I NVENFRM ; 

GETFORM  INVENFRM; 

!  check  input 

WHILE  NOT  (FORMANS  IN  ( "  1"  ,  " 2"  ,  " 3"  ,  " 4"  ,  "  5 "  ]  )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

G  ETFORM  ERRORFRM ; 

ENDWHILE; 


TEST  FORMANS 


CASE 

"l”  : 

PERFORM 

"3RWTA3LS. IPF" 

USING  "\" 

INVENTOR'S,"  "  ; 

BREAK; 

CASE 

"2"  : 

PERFORM 

"INVENUPD. IPF" 

;  BREAK; 

CASE 

"3"  : 

PERFORM 

"CRTRECRD. IPF" 

USING  "\" 

INVENTOR\" "; 

3 RE AX; 

CASE 

"4"  : 

PERFORM 

"INVENDLT. IPF" 

;  3REAK ; 

ENDTEST; 

ENDWHILE;  I  f ormans  =  "5" 

FORMANS  =  "  ";  !  places  a  blank  at  calling  module  prompt 

RETURN; 
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/*  INVENRPT.IPF  (2.2.2)  V 
/*  This  module  prints  the  quarterly  inventory  report.  V 
/*  Called  by:  PURRTMEN.  IFF  V 
/*  Calls:  TRPLDFRM. IPF  */ 
/*  Author:  R.  Booker  25  Feo  36  V 


PERFORM 

TRPLDFRM; 

!  Table  and  Report  Loading 

form 

PUTFORM 

TRPLDFRM; 

E.LSTR 

-  50; 

1 

Change  string  length 

to  50  characters. 

E.OPRN 

=  TRUE; 

1 

Send  output  to  printer. 

E.PDEP 

=  52; 

t 

Change  page  depth  to 

52  lines. 

S.PWID 

=  130; 

1 

Change  page  width  to 

130  character. 

USE  INVENTOR 

I 

inventory  table. 

REPORT  "INVENRPT"  ORDER  BY  A2  PA# 

<  Report  was  created  with  K-Report. 

FINISH  INVENTOR 

E.LSTR  =  15;  !  Change  all  environment  variaoles  to  their 

!  defaults. 

S.OPRN  =  FALSE; 

2.PDSP  =  50; 

S.PWID  =  120; 


*« 


* 

'.'i 


FORMANS 

RETURN; 


»•  r»  . 


I  places  a  olank  at  calling  module's  prompt 


/*  INVENUPD.IPF  -  3rings  up  the  menu  for  updating  of  the 
/*  (1.3.1)  inventory  table. 

/*  Called  oy:  INVENHEN. IPP 

/*  Calls:  IVUPDFRM. IPP ,  EROINVEN. IPP ,  UPDRSCRD.IPF 

/*  Author:  R.  3ooker  25  Feb  36 


FORMANS  =  "  "; 

ENTRYONE  =  "  !  the  1st  condition  for  an  update,  entered 

!  from  ivupdfrm 

ENTRYTNO  =  "  i  the  2nd  condition  for  an  update,  entered 

!  from  ivupdfrm 

PASCOND  =0;  !  the  field  to  search  for  the  update 

WHILE  ENTRYONE  =  "  "  AND  2NTRYTNO  =  "  "  DO  !  exit  from  module 
PERFORM  IVUPDFRM;  !  inventory  update  menu 

PUTFORM  IVUPDFRM; 

GETFORM  IVUPDFRM; 

WHILE  ENTRYONE  =  ”  11  AND  ENTRYTNO  =  "  "  DO  !  check  input 
PERFORM  EROINVEN; 

PUTFORM  EROINVEN; 

GETFORM  EROINVEN; 

SNDWHILE; 

IF  ENTRYONE  NS  "  "  THEN 

PASCOND  =1;  !  update  oy  PA# 

PERFORM  "UPDRSCRD.IPF"  USING  ”\" INVENTORY’ ” , \ 
"ENTRYONE",  "PASCOND"; 

ELSE 


IF  SNTRYTNO  NE  "  "  THEN 

PASCOND  =  2;  !  update  oy  SERIAL# 

PERFORM  "UPDRECRD.  IPF"  USING  "\"  INVENTORY'  "  ,  \ 
"ENTRYTNO",  "PASCOND"; 

END IF ; 

ENDIF; 


ENDNHILS; 
ENTRYONE  =  "  "; 


FORMANS  = 


!  formans  not  olank 
ENTRYTWO  =  "  "; 
RETURN; 
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/*  MAINMEN. IPF  (0)  V 

/*  Brings  up  the  main  AS  Department  data  base  menu,  performs  * / 
/*  DBMEN.IPF  or  REPRTMEN. IPF  */ 

/*  Calls:  MAINFRM. IPF,  ERRORFRM. IPF,  DBMEN.IPF,  REPRTMEN. IPF  */ 
/*  Author:  R.  Booker  15  Jan  36  */ 

FORMANS  =  "  "; 

WHILE  FORMANS  NE  "3"  DO  !  exit  from  module 

PERFORM  MAINFRM;  i  system  oanner  menu 

PUTFORM  MAINFRM; 

GET FORM  MAINFRM; 

WHILE  NOT  (FORMANS  IN  ["1" , ”2" , "3" ] )  DO  !  input  check 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

3ETF0RM  ERRORFRM; 

ENDWHILE; 

TEST  FORMANS 

CASE  "1":  PERFORM  "DBMEN.IPF";  3 RE AX ; 

CASE  "2":  PERFORM  "REPRTMEN. IPF" ;  3REAX; 

EUDTSST; 

ENDWHILE;  !  f ormans  =  "3" 

RELEASE  ALL; 

CLEAR; 


RETURN 


/*  OPTARDLT. IPF  (1.2. 1.2) 

/*  3rings  up  the  menu  for  the  deletion  of  a  record  from  the 
/*  OPTAR  funding  table. 

/*  Called  oy:  OPT ARMEN .IPF 

/*  Calls:  OPDELFRM. IPF,  EROOPTAR. IPF,  DELTREC1 . IPF 

/*  Author:  R.  Booker  22  Jan  86 


FORMANS  =  "  " ; 

ENTRYONE  =  0;  !  entered  from  opdelfrm 

ENTRYTWO  =0;  !  entered  from  opdelfrm 

PASCOND  =  0;  1  condition  for  deletion 

WHILE  ENTRYONE  =  0  AND  SNTRYTNO  =  0  DO  !  exit  from  modul 

PERFORM  OPDELFRM;  !  OPTAR  deletion  menu 

PUTFORM  OPDELFRM; 

GET FORM  OPDELFRM; 

WHILE  ENTRYONE  =  0  AND  ENTRYTNO  =  0  DO  !  check  input 
PERFORM  EROOPTAR; 

PUTFORM  EROOPTAR; 

GETFORM  EROOPTAR; 

SNDWHILE; 

IF  ENTRYONE  NE  0  THEN 

PASCOND  =1;  I  delete  oy  RECEIVED 

PERFORM  "DELTREC1. IPF"  USING  "\"OPTAR\”",  "ENTRYONE" 
"PASCOND"; 

ELSE 

IF  ENTRYTNO  NE  0  THEN 

PASCOND  =2;  1  delete  by  ENTRY 

PERFORM  "DELTREC1. IPF"  USING  "\"OPTAR\" " , \ 

" 2NTRYTWO" ,  "PASCOND"; 

ENDIF ; 

END IF; 


2NDWHILE; 
ENTRYONE  = 
FORMANS  = 
RETURN; 


!  formans  not  blank 
0;  ENTRYTWO  =  0; 

!  places  a  olank  at  calling  module  prompt 


rt  i« 


/*  OPTARMEN. IPP  -  Brings  up  the  menu  for  the  OPTAR  taole  and  */ 
/*  (1.2.1)  offers  the  following  options:  browse  the  V 
/*  table,  update,  add,  or  delete  a  record,  or  */ 
/*  quit.  V 
/*  Called  by:  INCOMMEN. IPF  */ 
/*  Calls:  OPTARFRM. IPF ,  ERRORFRM. IPF ,  BRNTA3LE. IPF,  V 
/*  OPTARUPD. IPF,  CRTRECRD. IPF,  OPTARDLT. IPF  */ 
/*  Author:  R.  3ooker  15  Jan  86  */ 


FORMANS  =  " 

WHILE  FORMANS  NE  "5"  DO  i  exit  from  module 

PERFORM  OPTARFRM;  !  OPTAR  menu 

PUTFORM  OPTARFRM; 

GETFORM  OPTARFRM; 

!  check  input 

WHILE  NOT  (FORMANS  IN  [ " 1" , " 2" , "3” , " 4” , " 5 " ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

3 ETF  ORM  S  RRORF RM ; 

ENDWHILE; 


TEST  FORMANS 


CASE 

"1”: 

PERFORM 

"3RNTA3LE. IPF" 

USING  "\" 

OPTAR\" " ; 

BREAK; 

CASE 

"2”: 

PERFORM 

"OPTARUPD. IPF" 

;  3 REAR; 

CASE 

"3": 

PERFORM 

"CRTRECRD. IPF" 

USING  ”\" 

OPTARV' "  ; 

3REAK ; 

CASE 

"4": 

PERFORM 

"OPTARDLT. IPF" 

;  3 REAR; 

3NDTEST; 

ENDWHILE;  !  f ormans  =  "5" 


FORMANS  = 
RETURN: 


!  places  a  blank  at  calling  module  prompt 


It  !« 


/*  OPTARUPD. IPF  (1.2. 1.1) 

/*  3rings  up  the  menu  for  updating  of  the  OPTAR  funding  taole. 
/*  Called  oy:  OPTARMEN. IPF 

/*  Calls:  OPUPDFRM. IPF,  EROOPTAR. IPF ,  UPDRECRD.IPF 

/*  Autnor:  R.  3ooker  22  Jan  36 

FORMANS  *  " 

ENTRYONE  =  0;  !  the  1st  condition  for  an  update,  entered  from 
!  opupdfrm 

2NTRYTWO  =0;  !  the  2nd  condition  for  an  update,  entered  from 
!  opupdfrm 

PASCOND  =0;  !  the  field  to  search  for  toe  update 
.’RILE  ENTRYONE  =  3  AND  2NTRYTNO  =  0  DO  !  exit  from  module 

PERFORM  OPUPDFRM;  I  personnel  funding  update  menu 

PUTFORM  OPUPDFRM; 

JETFORM  OPUPDFRM; 

NHILE  ENTRYONE  »  0  AND  ENTRYTWO  =  0  DO  !  check  input 
PERFORM  EROOPTAR; 

PUTFORM  EROOPTAR; 

JETFORM  EROOPTAR; 

SMDWHIL2; 

IF  ENTRYONE  NE  0  THEN 

PASCOND  =1;  !  update  by  RECEIVED 

PERFORM  "UPDRECRD.IPF"  USING  "\"OPTAR\"",  "ENTRYONE", 
"PASCOND" ; 

ELSE 

IF  ENTRY TNO  NE  0  THEN 

PASCOND  =2;  1  update  by  ENTRY 

PERFORM  "UPDRECRD.IPF"  USING  "\"OPTAR\" " , \ 

" ENTRYTWO" ,  "PASCOND"; 

END IF ; 

END IF; 

ENDWHILS;  !  formans  not  blank 

ENTRYONE  =  0;  ENTRYTNO  =  0; 

FORMANS  =  "  RETURN; 


/*  OTHERDLT. IPF  {1.2. 3. 2) 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  the 
/*  other  funds  taole. 

/*  Called  by:  OTHERMEN. IPF 

/*  Calls:  OTDELFRM. IPF,  ERlINDIR. IPF,  DELTREC1 . IPF 

/*  Author:  R.  Booker  22  Jan  36 

FORMANS 

ENTRYONE  =  0;  i  entered  from  otdelfrm 

PASCOND  =  0;  1  condition  for  deletion,  no  choice  =  0 

WHILE  ENTRYONE  =  0  DO  !  exit  from  module 

PERFORM  OTDELFRM;  i  other  deletion  menu 

PUTFORM  OTDELFRM; 

GETFORM  OTDELFRM; 

WHILE  ENTRYONE  =  0  DO  !  check  input 

PERFORM  ER1INDIR;  !  same  as  for  indirect  t 

PUTFORM  ERlINDIR; 

GETFORM  ERlINDIR; 

ENDWHILE; 

PERFORM  "DELTRECl. IPF"  USING  "\"OTHER\" ,  "ENTRYONE", \ 
"PASCOND"; 

ENDWHILE;  !  formans  not  blank 

ENTRYONE  =  0; 

FORMANS  =  "  " ;  1  places  a  olank  at  calling  module  prompt 

RETURN; 


/*  OTHERMEN.IPF  -  3rings  a?  tne  menu  for  otner  income,  and 
/*  (1.2.3)  offers  the  following  options:  orowse  tne 

/*  OTHER  taole,  add,  update,  or  delete  a 

/*  record,  or  quit. 

/*  Called  oy:  INCOMMEN. IFF 

/*  Calls:  OTHERFRM.  IPF,  ERRORFRM.  IPF ,  BRNTA3LE .  IPF , 

/*  OTHERUPD. IPF,  CRTRECRD. IPF,  OTHERDLT. IPF 

/*  Author:  R.  Booker  15  Jan  36 

FORMANS  =  " 

WHILE  FORMANS  NE  "5"  DO 
PERFORM  OTHERFRM; 

PUTFORM  OTHERFRM;  • 

GETFORM  OTHERFRM; 

!  check  input 

WHILE  NOT  (FORMANS  IN  (  " 1 " , " 2" , "3 " , " 4" , " 5 " ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

G STFORM  ERRORFRM ; 

ENDWHILE; 

TEST  FORMANS 


CASE 

"1"  : 

PERFORM 

"3RNTA3LE. IPF" 

USING  " \"OTHER\"  "  ; 

BREAK ; 

CASE 

"2": 

PERFORM 

"OTHERUPD. IPF" 

;  3 REAR ; 

CASE 

"3"  : 

PERFORM 

"CRTRECRD. IPF" 

USING  "\"OTHER\" " ; 

BREAK; 

CASE 

"  4"  : 

PERFORM 

"OTHERDLT. IPF" 

;  3 REAR; 

ENDTSST; 

ENDWHIL3;  !  formans  =  "5" 

FORMANS  =  "  " ;  !  places  a  olank  at  calling  module  prompt 

RETURN; 


•  exit  from  module 
l  personnel  other  funds  menu 


/*  OTHERUPD.IPF  -  3rings  up  the  menu  for  updating  of  the  other*/ 


/*  (1.2. 3.1)  funds  table.  */ 
/*  Called  oy:  OTHERMEN. IPF  */ 
/*  Calls:  OTUPDFRM . IPF ,  SR2INDIR. IPF ,  UPDRECRD.IPF  */ 
/*  Author:  R.  Booker  22  Jan  86  */ 


FORMANS 

SNTRYONE  =  "  !  the  1st  condition  for  an  update,  entered 

!  from  otupdfrm 

ENTRYTWO  =  "  ";  !  the  2nd  condition  for  an  update,  entered 

!  from  otupdfrm 

PASCOND  =0;  !  the  field  to  searcn  for  the  update 

WHILE  2NTRYQN3  =  n  "  AND  ENTRYTWO  =  "  "  DO  I  exit  from  module 
PERFORM  OTUPDFRM;  I  indirect  funding  update  menu 

PUTFORM  OTUPDFRM; 

GETFORM  OTUPDFRM; 

WHILE  ENTRYONE  =  "  "  AND  ENTRYTWO  =  “  "  DO  !  check  input 

PERFORM  ER2INDIR;  !  same  as  for  the  indirect  table 

PUTFORM  SR2INDIR; 

GETFORM  ER2INDIR; 

SNDNHILE; 

IF  SNTRYONE  ME  "  "  THEN 

PASCOND  =1;  !  update  oy  cost  code 

PERFORM  "UPDRECRD.IPF"  USING  "\"OTHSR\" " ,  " SNTRYONE" , \ 
"PASCOND" ; 

ELSE 

IF  ENTRYTWO  NE  "  "  THEN 

PASCOND  =  2;  !  update  by  principl 

PERFORM  "UPDRECRD.IPF"  USING  "\"OTHSR\" " , \ 

"ENTRY  TVO”,  "PASCOND"; 

END IF; 

END IF; 

ENDWHILE;  !  formans  not  blank 

ENTRYONE  =  "  *;  ENTRYT/O  =  "  "; 

FOR:iANS  =  "  RETURN; 


/*  OUTSTRPT. IPF  (2.3) 

/*  This  module  prints  the  outstanding  TO(s)  report. 

/*  Called  oy:  REPRTMEN. IPF 
/*  Calls:  TRPLDFRM. IPF 

/*  Author:  R.  3ooker  15  Jan  85 

PERFORM  TRPLDFRM;  !  TaDle  and  Report  Loading  form 
PUTFORM  TRPLDFRM; 

E.LSTR  =  25;  l  Change  string  length  to  25  characters 

E.OPRN  =  TRUE;  !  Send  output  to  printer. 

E.PDEP  =  52;  !  Change  page  depth  to  62  lines. 

E.PWID  =  130;  !  Change  page  width  to  130  character. 

USE  TVLEXP  i  Travel  Expenses  table. 

REPORT  "OUTSTRPT"  ORDER  3Y  A2  COSTCODE; 

FINISH  TVLEXP 

E.LSTR  =  15;  !  Change  all  environment  variaoles  to  their 
!  defaults. 

E.OPRN  =  FALSE; 

E.PDEP  =  60; 

E.PWID  =  120; 

FORMANS  =  "  ";  I  places  a  blank  at  calling  module's  prompt 


RETURN; 


/*  PERSDMEN. IPF  (1.1.1)  -  Brings  up  the  personnel  menu 
/*  Called  by:  EXPENMEN. IPF 

/*  Calls:  PERSDFRM. IPF,  ERRORFRM. IPF,  PFUNDMEN. IPF , 

/*  PHISTMEN. IPF 

/*  Author:  R.  Booker  15  Jan  86 

FORMANS  =  " 

NHILE  FORMANS  NE  "3"  DO 
PERFORM  PERSDFRM; 

PUTFORM  PERSDFRM; 

GETFORM  PERSDFRM; 

NHILE  NOT  (FORMANS  IN  [ " 1" , " 2" , " 3 " ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

ENDWHILE; 

TEST  FORMANS 

CASE  "1":  PERFORM  "PFUNDMEN. IPF" ;  BREAK; 

CASE  "2":  PERFORM  "PHISTMEN. IPF" ;  BREAK; 
SNDTEST; 

ENDWHILE;  !  f ormans  =  "3" 


I  don't  exit  module 
!  personnel  menu 


FORMANS 

RETURN; 


rt  n 


!  places  a  blank  at  calling  menu  prompt 


/*  PFUNDDLT. IPF  (1.1. 1.1. 2) 

/*  Brings  up  the  .menu  for  tne  deletion  of  a  record  from  the 
/*  personnel  funding  table. 

/*  Called  by:  PFUNDMEN. IPF 

/*  Calls:  PFDELFRM. IPF,  EROPFUND. IPF,  DELTRSC1 . IPF 

/*  Author:  R.  Booker  22  Jan  86 

FORMANS  =  "  "? 

ENTRYONS  =  "  " ;  !  entered  from  pfdelfrm 

ENTRYTNO  =0;  I  entered  from  pfdelfrm 

PA3C0ND  =0;  !  condition  for  deletion 

WHILE  ENTRYONS  =  "  '*  AND  SNTRYTNO  =  0  DO  !  exit  from  module 
PERFORM  PFDELFRM;  I  personnel  funding  deletion  menu 

PUTFORM  PFDELFRM; 

GETFORM  PFDELFRM; 

WHILE  EMTRYONE  =  "  "  AND  SNTRYTWO  =  0  DO  !  check  input 
PERFORM  EROPFUND; 

PUTFORM  EROPFUND; 

GETFORM  EROPFUND; 

SNDWHILS; 

IF  SNTRYONE  NE  "  "  THEN 

PASCOND  =  1 ;  <  delete  by  last  name 

PERFORM  "DELTREC1. IPF"  USING  "\"PFUNDING\" M , \ 
"SNTRYONE",  "PASCOND"; 

ELSE 

IF  ENTRYTWO  NS  0  THEN 

PASCOND  =2;  1  delete  by  labor  # 

PERFORM  "DSLTRSC1. IPF"  USING  " \" PFUMDING\" " , \ 
"ENTRYTWO" ,  "PASCOND"; 

END IF ; 

END IF; 

ENDWHILE;  !  formans  not  blank 

ENTRYONE  =  "  ENTRYT./O  =  0; 

FORMANS  =  "  !  places  a  ol  ank  at  calling  module  prompt 

RETURN; 


/*  PFUNDMEN.  IPF  -  3rings  up  the  menu  for  personnel  funding.  */ 
/*  (1.1. 1.1)  The  following  options  then  may  be  selected:*/ 
/*  browse  the  personnel  funding  table,  update,*/ 
/*  add  or  delete  a  record.  */ 
/*  Called  by:  PERSDMEN. IPF  */ 
/*  Calls:  PFUNDFRM.IPF,  ERRORFRM. IIP,  3RWTABLE. IPF,  */ 
/*  CRTRECRD . IPF ,  PFUNDUPD. IPF ,  PFUNDDLT. IPF  */ 
/*  Author:  R.  3ooker  15  Jan  86  */ 


FORMANS  =  "  "; 


WHILE  FORMANS  NI 


i  exit  from  module 


PERFORM  PFUMDFRM; 
PUTFORM  PFUNDFRM; 


!  personnel  funding  menu 


!  check  input 

WHILE  NOT  (FORMANS  IN  [ " 1" , " 2" , " 3 " , " 4" , " 5" ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

JETFORM  ERRORFRM; 

ENDNHILE; 

TEST  FORMANS 

CASE  "1":  PERFORM  "3RWTA3LE.  IPF"  USING  "\" PFUNDING \" " ; 
3REAX; 

CASE  "2":  PERFORM  "PFUNDUPD. IPF" ;  3RSAK ; 

CASS  "3":  PERFORM  "CRTRECRD. IPF"  USING  " \" PFUNDIMG\" " ; 
3  REAR ; 

CASE  "4":  PERFORM  " PFUNDDLT. IPF" ;  3 REAM; 

ENDTEST; 


ENDWHILE; 


!  formans  =  "5' 


FORMANS  =  "  "; 


RETURN 


V 

*/ 

*/ 

*/ 


PERFORM  TRPLDFRM;  !  Table  and  Report  Loading  form 
PUTFORM  TRPLDFRM; 

S.LSTR  =  25;  !  Change  string  length  to  25  characters 

E.OPRN  =  TRUE;  !  Send  output  to  printer. 

E.PDEP  =  62;  !  Change  page  depth  to  62  lines. 

S.PWID  =  130;  !  Change  page  width  to  130  cnaraccer. 

USE  PFUNDING  !  Personnel  Funding  table. 

REPORT  "PFUNDRPT"  ORDER  BY  AZ  PFUNDING. LNAME, \ 

AZ  PFUNDING. FUNDFROM,  AZ  PFUNDING  . FUNDTO 
!  Report  was  created  with  K-Report. 

FINISH  PFUNDING 

S.LSTR  =  15; 

E.OPRN  =  FALSE; 

S.PDSP  =  50; 

S.PWID  =  120; 

FORMANS  =  "  ";  i  places  a  blank  at  calling  module's  prompt 

RETURN; 


!  Change  all  environment  variables  to  tneir 
I  defaults. 


/*  PFUNDRPT. IPF  (2.1.1) 

/*  This  module  prints  the  personnel  funding  report. 
/*  Called  by;  PRPRTMEN. IPF 
/*  Calls:  TRPLDFRM. IPF 

/*  Author;  R.  3ooker  15  Jan  36 


/*  PFUNDUPD. IPF  (1.1. 1.1.1)  -  Brings  up  the  menu  for  updating  */ 


/*  of  the  personnel  funding  table.  */ 
/*  Called  oy:  PFUNDMEN. IPF  V 
/*  Calls:  PFUPDFRM. IPF,  EROPFUND. IPF,  UPDR2CRD.IPF  */ 
/*  Author:  R.  3ooker  22  Jan  86  */ 


FORMANS  =  " 

ENTRYONE  =  "  !  the  1st  condition  for  an  update,  entered 

!  from  pfupdfrm 

ENTRYTWO  =  0;  i  the  2nd  condition  for  an  update,  entered 

!  from  pfupdfrm 

PASCOND  =  0;  !  tne  field  to  search  for  the  update 

WHILE  ENTRYONE  =  "  "  AND  ENTRYTNO  =  0  DO  !  exit  from  module 
PERFORM  PFUPDFRM;  I  personnel  funding  update  menu 

PUTFORM  PFUPDFRM; 

GETFORM  PFUPDFRM; 

WHILE  ENTRYONE  *  "  "  AND  ENTRYTWO  =  0  DO  !  check  input 
PERFORM  EROPFUND; 

PUTFORM  EROPFUND; 

GETFORM  EROPFUND; 

ENDWHILS; 

IF  ENTRYONE  NE  "  "  THEN 

PASCOND  =1;  I  update  oy  last  name 

PERFORM  "UPDRECRD. IPF"  USING  "\"PFUNDING\" " , \ 
"ENTRYONE",  "PASCOND"; 

ELSE 

IF  ENTRYTWO  NE  0  THEN 

PASCOND  =2;  !  update  by  laoor  * 

PERFORM  "UPDRECRD. IPF"  USING  "\"PFUNDING\" " , \ 
" ENTRYTWO" ,  " PASCOND" ; 

SNDIF ; 

END IF; 

ENDWHILE;  !  formans  not  blank 

ENTRYONE  =  "  " ;  ENTRYTWO  =  0; 

FORMANS  =  "  ";  RETURN; 


/*  PHISTDLT. IPF  (1.1. 1.2. 2) 

/*  3rings  up  the  menu  for  the  deletion  of  a  record  from 
/*  personnel  history  table. 

/*  Called  by:  PHISTMEN. IPF 

/*  Calls:  PHDELFRM.  IPF ,  EROPHIST.  IPF,  DELTREC1 .  IPF 

/*  Author:  R.  Booker  19  Jan  86 

FORMANS  =  " 

ENTRYONE  =  "  ";  !  entered  from  pndelfrm 

PASCOND  =  0;  1  condition  for  deletion,  no  choice  =  0 

WHILE  ENTRYONE  =  "  "  DO  !  exit  from  module 

PERFORM  PHDELFRM;  !  personnel  history  deletion  menu 

PUTFORM  PHDELFRM; 

GETFORM  PHDELFRM; 

WHILE  ENTRYONE  »  "  "  DO  I  check  input 
PERFORM  SROPHIST ; 

PUTFORM  EROPHIST; 

GETFORM  EROPHIST; 

SNDWHILE; 

PERFORM  "DELTREC1.IPF"  USING  " PH I3TORY\" " ,  " ENTRYONE" , \ 
"PASCOND"; 


SNDWHILE;  !  formans  not  olank 

ENTRYONE  =  "  "; 


FORMANS 

RETURN; 


t%  II. 


!  places  a  olanK  at  calling  module  prompt 


/*  PHISTMEN.IPF  -  Brings  up  the  menu  for  the  personnel  history*/ 


/*  (1.1. 1.2)  taDle.  The  following  options  are  then  */ 
/*  possible:  browse  a  table,  update,  add  or  */ 
/*  delete  a  record,  and  quit.  */ 
/*  Called  by:  PERSDMEN.IPF  */ 
/*  Calls:  PHISTFRM. IPP ,  ERRORFRM. IPF,  BRWTABLE . IPF ,  */ 
/*  PHISTUPD. IPF,  CRTRECRD. IPF,  PHISTDLT.IPF  */ 
/*  Author:  R.  Booker  15  Jan  86  */ 


FORMANS  =  "  "; 

WHILE  FORMANS  NE  "5"  DO 
PERFORM  PHISTFRM; 

PUTFORM  PHISTFRM; 

G  ETFORM  PH I STFRM ; 

!  check  input 
WHILE  NOT  (FORMANS  IN  [ " 1" , " 2" , "3 " , " 4" , " 5" ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

G ETFORM  ERRORFRM; 

ENDWHILE; 

TEST  FORMANS 


CASE 

"l": 

PERFORM 

"3RWTA3LE. IPF" 

USING  "\" 

PH I STORY \" " ; 

BREAK; 

CASE 

"2": 

PERFORM 

"PHISTUPD. IPF" 

;  BREAK; 

CASE 

"3": 

PERFORM 

"CRTRECRD. IPF" 

USING  "\" 

PHISTORYV’ "  ; 

3 REAR; 

CASE 

"4” : 

PERFORM 

"PHISTDLT. IPF" 

;  BREAK; 

SNDTEST ; 

ENDWHILE;  !  f ormans  =  "5" 


!  exit  from  module 
!  personnel  history  menu 


FORMANS 


n  ii 


RETURN 


/*  PHISTRPT.IPF  (2.1.2)  * 

/*  This  module  prints  the  personnel  history  report  * 

/*  Called  by:  PRPRTMEN. IPF  * 

/*  Calls:  TRPLDFRM. IPF  * 

/*  Author:  R.  Booker  15  Jan  86  * 

PERFORM  TRPLDFRM;  !  Table  and  Report  Loading  form 
PUTFORM  TRPLDFRM; 

E.LSTR  =  25;  !  Change  string  length  to  25  characters. 

E.OPRN  =  TRUE;  !  Send  output  to  printer. 

E.PDEP  =  52;  i  Change  page  depth  to  52  lines. 

E . PWID  =  136;  !  Change  page  width  to  135  character. 

USE  PHISTORY  !  Personnel  History  table. 

REPORT  "PHISTRPT"  ORDER  BY  A2  LIIAME 

1  Report  was  created  with  K-Report. 

FINISH  PHISTORY 

E.LSTR  =  15; 

S.OPRN  =  FALSE; 

S.PDEP  =  60; 

3. PWID  =  120; 

FORI>IANS  =  "  !  places  a  blank  at  calling  module's  prompt 

RETURN; 


!  Change  all  environment  variaoles  to 
!  their  defaults. 


/*  PHISTUPD.  IPF  -  3rings  up  the  menu  for  updating  of  the  V 
/*  (1.1. 1.2.1)  personnel  history  taole.  */ 
/*  Called  by:  PHISTMEN.IPF  V 
/*  Calls:  PHUPDFRM. IPF,  EROPHIST. IPF,  UPDRECRD.IPF  */ 
/*  Author:  R.  3ooker  13  Jan  86  */ 


FORMANS  =  "  "; 

ENTRYONE  =  "  " ;  !  the  condition  for  an  update,  entered  from 

!  phupdfrm 

PASCOND  =0;  !  the  field  to  search  for  the  update; 

!  0  =  no  option 

WHILE  ENTRYONE  =  "  "  DO  !  exit  from  module 

PERFORM  PHUPDFRM;  !  personnel  history  update  menu 

PUTFORM  PHUPDFRM; 

GETFORM  PHUPDFRM; 

WHILE  ENTRYONE  =  "  "  DO  !  check  input 
PERFORM  EROPHIST; 

PUTFORM  EROPHIST; 

GETFORM  EROPHIST; 

ENDWHILE; 

PERFORM  "UPDRSCRD.  IPF"  USING  "\"?HISTORY\"  "  ,  "  ENTRYONE"  ,  \ 
"PASCOND” ; 

ENDWHILE;  !  formans  not  blank 

ENTRYONE  »  " 

FORMANS  =  "  " ;  !  places  a  olank  at  calling  module  prompt 

RETURN; 
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/*  PRPRTMEN. IPF  (2.1)  -  Brings  up  the  personnel  reports  menu  */ 
/*  Called  oy:  REPRTMEN. IPF  * 

/*  Calls:  PFUNDRPT. IPF,  PHISTRPT.  IPF,  PRPRTFRM.  IPF,  * 

/*  SRRORFRM. IPF  * 

/*  Author:  R.  Booker  15  Jan  86  * 

FORMANS  =  " 

WHILE  FORMANS  NE  "3"  DO  !  exit  from  module 

PERFORM  PRPRTFRM;  !  personnel  menu 

PUT FORM  PRPRTFRM; 

JETFORM  PRPRTFRM; 

WHILE  NOT  (FORMANS  IN  [  " 1 " , " 2" , " 3 " ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

ENDWHILE; 

TEST  FORMANS 

CASE  "1":  PERFORM  "PFUNDRPT. IPF" ;  3 RE AX; 

CASE  ”2":  PERFORM  "PHISTRPT. IPF" ;  3 REAX; 

ENDTEST; 

ENDWHILE;  !  formans  =  "3" 

FORMANS  =  "  ";  !  places  a  blank  at  calling  modules  prompt 

RETURN; 


/*  PURCHDLT.IPF  (1.1. 3. 2) 

/*  3rings  up  the  menu  for  the  deletion  of  a  record  from 
/*  purcnase  table. 

/*  Called  by:  PURCHMEN. IPF 

/*  Calls:  PUDELFRM. IPF ,  EROTVLEX . IPF ,  DELTREC1 . IPF 

/*  Author:  R.  Booker  22  Jan  86 

FORMANS  =  " 

ENTRYONE  =  "  ";  !  entered  from  pudelfrm 

PASCOND  =  0;  !  condition  for  deletion,  no  cnoics  =  0 

WHILE  ENTRYONE  =  "  "  DO  !  exit  from  module 

PERFORM  PUDELFRM;  >  purchase  deletion  menu 

PUTFORM  PUDELFRM; 

GETFORM  PUDELFRM; 

WHILE  ENTRYONE  =  "  "  DO  (  check  input 

PERFORM  EROTVLEX;  !  same  error  form  as  travel 
PUTFORM  EROTVLEX;  !  expenses 

GETFORM  EROTVLEX; 

ENDWHIL2; 

PERFORM  "DELTREC1.  IPF"  USING  "Y'PURCHASEV "  ,  "ENTRY ON 
"PASCOND" ; 

ENDWHIL2;  !  formans  not  blank 

ENTRYONE  =  "  "; 

FORI-1ANS  =  "  !  places  a  olank  at  calling  module  prompt 

RETURN; 


/*  PURCHMEN. IPF  -  Brings  up  the  menu  for  purchaser  and  offers*/ 


/*  (1.1.3)  the  following  options;  browse  the  table,  */ 
/*  update,  add,  delete  a  record  from  it,  or  */ 
/*  quit.  V 
/*  Called  by;  EXPENMEN. IPF  */ 
/*  Calls;  PURCHFRM. IPF,  ERRORFRM. IPF ,  BRWTA3LE . IPF ,  */ 
/*  PURCHUPD,  CRTRECRD. IPF,  PURCHDLT.IPF  */ 
/*  Author;  R.  Booker  15  Jan  36  */ 


FORMANS  =  "  n; 

WHILE  FORMANS  NE  "5"  DO 
PERFORM  PURCHFRM; 

PUTFORM  PURCHFRM; 

GETFORM  PURCHFRM; 

!  check  input 
WHILE  MOT  (FORMANS  IN  ("  1"  ,  "2"  ,  "3"  ,  "4"  ,  "  5"  ]  )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

SNDWHILE; 

TEST  FORMANS 

CASE  "l";  PERFORM  "3RWTA3LE . IPF"  USING  " \" PURCHASE\" " ; 
3REAX ; 

CASE  "2";  PERFORM  "PURCHUPD. IPF" ;  3 RE AX; 

CASE  "3":  PERFORM  "CRTRECRD. IPF"  USING  " \" ?URCHASE\" " ; 

3 RE AX ; 

CASE  "4":  PERFORM  "PURCHDLT.IPF";  3REAX; 

ENDTEST; 

ENDWHILE;  !  f ormans  =  "5" 

FORMANS  =  "  ";!  places  a  blank  at  calling  module  prompt 
RETURN; 


!  exit  from  module 

!  ourchase  menu 


/*  PURCHUPD.IPF  -  Brings  up  the  menu  for  updating  of  the 
/*  (1.1. 3.1)  purchase  table. 

/*  Called  oy:  PURCHMEN.IPF 

/*  Calls:  PUUPDFRM. IPF,  EROTVLEX. IPF,  UPDRECRD.IPF 

/*  Author:  R.  Booker  23  Jan  36 

FORMANS 

ENTRYONE  =  "  " ;  i  the  condition  for  an  update,  entered 

!  from  puupdfrm 

PASCOND  =0;  !  the  field  to  search  for  the  update; 

I  0  =  no  option 

WHILE  ENTRYONE  =  n  n  DO  !  exit  from  module 

PERFORM  PUUPDFRM;  i  purchase  update  menu 

PUTFORM  PUUPDFRM; 

GETFORM  PUUPDFRM; 

WHILE  ENTRYONE  =  "  "  DO  !  check  input 

PERFORM  EROTVLEX;  i  same  error  form  as  travel 

PUTFORM  SROTVLEX;  !  expenses 

GETFORM  SROTVLEX; 

SNDWHILS; 

PERFORM  "UPDRECRD.IPF"  USING  "\" PURCHASE\" " ,  "SUTRYON 
"PASCOND” ; 

SNDWHILS;  !  formans  not  blank 

ENTRYONE  =  "  "; 

FORMANS  =  "  ";  !  places  a  olank  at  calling  module  prompt 

RETURN; 


/*  PURRTMEN. IPF  -  Brings  .up  the  requisition  status/quarterly 

/*  (2.2)  inventory  reports  menu 

/*  Called  by:  REPRTMEN. IPF 

/*  Also  calls:  PURRTFRM.  IPF ,  ERRORFRil .  IPF ,  REQUSRPT.  IPF , 

/*  INVENRPT. IPF 

/*  Author:  R.  Booker  15  Jan  86 

FORMANS  =  " 

WHILE  FORMANS  ME  "3“  DO  i  exit  from  module 

PERFORM  PURRTFRM?  !  requisition  status/quarterly  inventory 
PUTFORM  PURRTFRM;  !  form 
GET FORM  PURRTFRM? 

WHILE  NOT  (FORMANS  IN  [ " 1" , " 2" , " 3" ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

SNDWHILE; 

TEST  FORMANS 

CASE  "1":  PERFORM  "REQUSRPT. IPF" ;  3RSAK ? 

CASE  "2":  PERFORM  " INVENRPT. IPF" ;  BREAK; 

SNDTEST; 

SNDWHILE;  !  formans  =  "3” 

FORMANS  =  "  " ;  !  places  a  blank  at  calling  modules  prompt 

RETURN; 


/*  REPRTMEN.IPF  -  Brings  up  the  reports  menu,  and  performs 
/*  (2)  either  PRPRTMEN. IPF,  PURRTMEN. IPF , 

/*  OUTSTRPT.IPF 

/*  Called  by:  MAINMEN.IPF 

/*  Calls:  REPRTFR*'l.  IPF,  ERRORFRM.  IPF,  PRPRTMEN.  IPF, 

/*  PURRTMEN. IPF,  OUTSTRPT.IPF 

/*  Author:  R.  Booker  15  Jan  86 


FORMANS  =  " 

WHILE  FORMANS  NE  "5"  DO  i  exit  from  module 


PERFORM  REPRTFRM;  !  reports  menu 

PUTFORM  REPRTFRM; 

GETFORM  REPRTFRM; 

WHILE  NOT  (FORMANS  IN  [ " 1" , "2" , " 4" , " 5" ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

ENDWHILE; 


TEST  FORMANS 


CASE 

"  1 "  : 

PERFORM 

PRPRTMEN; 

BREAK ; 

CASE 

"2": 

PERFORM 

PURRTMEN; 

BREAK ; 

/*  CASE 

a 

3 

PERFORM 

3ALACRPT ; 

BREAK ; 

CASE 

" 4” : 

PERFORM 

OUTSTRPT ; 

3 REAR; 

SNDTE3T; 

ENDWHILE;  !  f ormans  =  ”5" 

FORMANS  =  "  * ;  !  places  a  blank  at  calling  module's  prompt 

RETURN; 


/*  REQUSRPT. I?F  (2.2.1) 

/*  This  module  prints  tne  requisition  status  report. 

/*  Called  oy:  PURRTMSN.IPF 

/*  Calls:  TRPLDFRM . IFF 

/*  Autnor:  R.  3oo*er  15  Jan  86 

PERFORM  TRPLDFRM;  1  Taole  and  Report  Loading  form 
PUTFORM  TRPLDFRM; 

E.LSTR  =  50;  !  Change  string  length  to  30  characters 

E.OPRN  =  TRUE;  !  Send  output  to  printer. 

E.PDEP  =  62;  !  Change  page  depth  to  62  lines. 

E.PWID  =  130;  1  Change  page  width  to  130  character. 

USE  PURCHASE  !  Purchase  table. 

REPORT  "REQUSRPT"  !  Report  was  created  with  X-Report. 

FINISH  PURCHASE 

E.LSTR  =  15; 

E.OPRN  =  FALSE; 

E.PDEP  =  60; 

S.PWID  =  120; 

FORMANS  =  "  ";  !  places  a  blank  at  calling  module's  prompt 

RETURN; 


!  Change  all  environment  variaoles  to  tneir 
!  defaults. 


/*  TRAVLMEN.IPF  -  Brings  up  the  menu  for  travel  expenses,  */ 
/*  (1.1.2)  and  offers  the  following  options:  browse  the*/ 
/*  travel  expense  taole,  update,  add  or  delete  */ 
/*  a  record  from  it.  */ 
/*  Called  by:  EXPENMEN. IPF  */ 
/*  Calls:  TRAVFRM . IPF ,  ERRORFRM. IPF,  3 RATABLE . IPF ,  */ 
/*  TVLEXUPD. IPF,  CRTRECRD. IPF,  TVLEXDLT. IPF  */ 
/*  Author:  R.  Booker  15  Jan  86  */ 


FORMANS  =  "  "; 

NHILE  FORMANS  ME  "5"  DO  1  exit  from  module 

PERFORM  TRAVFRM;  !  travel  expenses  menu 

PUTFORM  TRAVFRM; 

GETFORM  TRAVFRM; 

!  check  input 

NHILE  NOT  (FORMANS  IN  ( " 1" , " 2" , " 3" , *  4" , " 5" ] )  DO 
PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 

3ND77H ILE ; 

TEST  FORMANS 

CASE  "l”:  PERFORM  "3RNTA3LS. IPF"  USING  " \"TVLEX?\" " ; 
BREAK; 

CASE  "2":  PERFORM  "TVLEXUPD. IPF" ;  BREAK; 

CASE  "3":  PERFORM  "CRTRECRD. IPF"  USING  "\"TVLSXP\M ” ; 
BREAK; 

CASE  "4":  PERFORM  "TVLEXDLT. IPF" ;  3 RE AX ; 

ENDTEST; 

ENDWHILE;  !  f ormans  =  "5” 

FORMANS  =  "  ";  !  places  a  olank  at  calling  module  prompt 

RETURN; 


/*  TVLEXDLT. IPF  -  Brings  up  the  menu  for  the  deletion  of  a 
/*  (1. 1.2.2)  record  from  the  travel  expenses  table. 

/*  Called  by:  TRAVLMEN.IPF 

/*  Calls:  TVDELFRM. IPF,  EROTVLEX . IPF ,  DELTREC1 . IPF 

/*  Author:  R.  Booker  22  Jan  86 

FORMANS  =  " 

ENTRYONE  =  "  !  entered  from  tvdelfrm 

PASCOND  =  0;  !  condition  for  deletion,  no  choice  =  0 

WHILE  ENTRYONE  =  "  "  DO  !  exit  from  module 

PERFORM  TVDELFRM;  l  travel  expenses  deletion  menu 

PUTFORM  TVDELFRM; 

GETFORM  TVDELFRM; 

WHILE  ENTRYONE  =  "  "  DO  !  check  input 
PERFORM  EROTVLEX; 

PUTFORM  EROTVLEX; 

GETFORM  EROTVLEX; 

ENDWHILE; 

PERFORM  "DELTREC1. IPF"  USING  "\"TVL3XP\" " ,  " ENTRYONE" , \ 
"PASCOND"; 

ENDWHILE;  !  f ormans  not  blank 

ENTRYONE  =  "  "; 

FORMANS  =  "  ";  !  places  a  blank  at  calling  module  prompt 

RETURN; 


/*  TVLEXUPD. IPF  -  3rings  up  the  menu  for  updating  of  the 
/*  (1.1. 2.1)  travel  expenses  table. 

/*  Called  oy:  TRAVLMEN. IPF 

/*  Calls:  TVUPDFRM . IPF ,  2R0TVL2X. IPF,  UPDRECRD.IPF 

/*  Author:  R.  3ooker  22  Jan  36 

FORMANS  =  "  "; 

2NTRY0NE  =  "  " ;  !  the  condition  for  an  update,  entered 

i  from  tvupdfrm 

PASCOND  =0;  !  the  field  to  search  for  the  update; 

1  0  =  no  option 

NHILE  ENTRYONE  =  “  "  DO  i  exit  from  module 

PERFORM  TVUPDFRM;  !  travel  expenses  update  menu 

PUTFORM  TVUPDFRM; 

GETFORM  TVUPDFRM; 

NHILE  ENTRYONE  =  "  "  DO  !  check  input 
PERFORM  EROTVLSX ; 

PUTFORM  EROTVLSX; 

GETFORM  EROTVLEX ; 

ENDNHILE; 

PERFORM  "UPDRECRD.IPF"  USING  " \"TVLEXP\" " ,  "ENTRYONE", \ 
"PASCOND" ; 

EUDWHILE;  I  formans  not  blank 

ENTRYONE  =  "  "; 

F0R*‘1ANS  =  "  ";  !  places  a  blank  at  calling  module  prompt 

RETURN; 


/*  UPDRECRD.IPF  -  This  module  updates  a  record  in  a  table.  */ 
/*  Called  by:  INDIRUPD. IPF ,  OPTARUPD. IPF,  PFUNDUPD. IPF,  */ 
/*  PHISTUPD. IPF,  PURCHUPD.IPF,  TVLEXUPD. IPF,  */ 
/*  OTHERUPD. IPF,  INVENUPD. IPF  */ 
/*  Calls:  INDIRECT. IPF,  OPTAR.IPF,  PFUNDING. IPF,  */ 
/*  PHISTORY. IPF,  PURCHASE. IPF,  TVLEXP.IPF,  */ 
/*  OTHER. IPF,  TA3LDFRM. IPF,  INVENTOR. IPF  */ 
/*  Author:  R.  Booker  18  Jan  86  */ 


S.ICAS  =  TRUE;  !  ignore  case  differences  among  string  values 
PERFORM  TA3LDFRM; 

PUTFORM  TA3LDFRM; 


TABLE  =  #A;  !  passed  from  calling  module 


UPDATVAR  =  #3;  J  the  condition  variable  for  the  search 

COND  =  SC; I  the  condition  field  for  selecting  records  for  update 

TEST  TA3LE 

CASE  "INDIRECT": 

USE  INDIRECT; 

LOAD  FROM  INDIRECT;  !  the  indirect  funds  entry  form 

IF  COND  =  1  THEN  !  browse  on  COSTCODE 

3 ROWS E  INDIRECT  FOR  COSTCODE  =  UPDATVAR  ALL  \ 

WITH  INDIRECT; 

ELSE 

IF  COND  =  2  THEN  !  orowse  on  PRINCIPL 

BROWSE  INDIRECT  FOR  PRINCIPL  =  UPDATVAR  ALL  \ 
WITH  INDIRECT; 

END IF ; 


END  IF 
3REAX 


CASE  "INVENTOR": 

USE  INVENTOR; 

LOAD  PROM  INVENTOR;  i  the  inventory  entry  form 

IF  COND  =  1  THEN  !  browse  on  PA# 

3 ROWS E  INVENTOR  FOR  PA#  =  UPDATVAR  ALL  \ 

WITH  INVENTOR; 

ELSE 

IF  COND  =  2  THEN  !  browse  on  SERIAL# 

3R0WSE  INVENTOR  FOR  SERIAL#  =  UPDATVAR  ALL  \ 
WITH  INVENTOR; 

END IF; 

ENDIF; 

3 REAR ; 

CASE  "OPTAR": 

USE  OPTAR; 

LOAD  FROM  OPTAR;  !  the  OPTAR  entry  form 

IF  COND  =  1  THEN  !  browse  on  RECEIVED 

3ROWSE  OPTAR  FOR  RECEIVED  =  UPDATVAR  ALL  \ 

WITH  OPTAR; 

ELSE 

IF  COND  =  2  THEN  !  browse  on  ENTRY 

3ROWSE  OPTAR  FOR  ENTRY  =  UPDATVAR  ALL  \ 

WITH  OPTAR; 

END IF; 

END IF; 

3REAK; 


CASE  "OTHER" 


CASE 


CASE 


USE  OTHER? 

LOAD  FROM  OTHER?  !  the  other  funds  entry  form 

IF  COND  =  1  THEM  i  browse  on  COSTCODE 

BROWSE  OTHER  FOR  COSTCODE  =  UPDATVAR  ALL  \ 

WITH  OTHER? 

ELSE 

IF  COND  =  2  THEM  l  browse  on  PRIMCIPL 

BROWSE  OTHER  FOR  PRIMCIPL  =  UPDATVAR  ALL  \ 
WITH  OTHER? 

EMDIF? 

END IF? 

3 RE AX? 


"PFUNDIMG" : 

USE  PFUNDIMG? 

LOAD  FROM  PFUMDING?  I  the  personnel  funding  entry  form 
IF  COND  =  1  THEM  !  browse  on  LNAME 

BROWSE  PFUNDIMG  FOR  LMAU3  =  UPDATVAR  ALL  \ 

WITH  PFUNDIMG? 

ELSE 

IF  COND  =  2  THEN  !  browse  on  LABOR# 

BROWSE  PFUNDIMG  FOR  LA30R#  =  UPDATVAR  ALL  \ 
WITH  PFUNDIMG? 

END IF? 

EMDIF? 

BREAK  ? 

"PHISTORY" : 

USE  PHISTORY? 

LOAD  FROM  PHISTORY?  !  the  personnel  history  entry  form 
3R0WSE  PHISTORY  FOR  LNAME  =  UPDATVAR  ALL  WITH  PHISTORY; 
BREAK; 


CASS  "PURCHASE": 

USE  PURCHASE; 

LOAD  FROM  PURCHASE;  1  the  purchase  entry  form 
3 ROWS E  PURCHASE  FOR  DOC#  =  UPDATVAR  ALL  WITH  PURCHA3 
3 REAR ; 

CASE  "TVLEXP" : 

USE  TVLEXP; 

LOAD  FROM  TVLEXP;  !  the  travel  expenses  entry  form 
3R0WSE  TVLEXP  FOR  DOC#  =  UPDATVAR  ALL  WITH  TVLEXP; 

3 REAR ; 

SNDTEST ; 

FINISH  ALL; 

FORMANS  =  "  " ; 


RETURN 


APPENDIX  J 
LIST  OP  TABLES 


This  appendix  contains  a  list  of  the  AS  System’s  ta¬ 
bles.  Appendix  C  (the  Data  Dictionary)  and  the  AS  System's 
User  s  Manual  contains  additional  information  about  the 
tables's  fields.  The  inclosed  information  may  be  obtained 
oy  using  XnowledgeMan ' s  "show"  command. 


*  v»  v*  v*  v»  vr  t 


Table  name 
File  name 
Read  Access 
Write  Access 


INDIRECT 
INDIRECT. IT3 
A3CDEFGH I J  KLMNOP 
A3CDEFGH I J  KLMNOP 


Creation  Date  :  02/25/36 
Modification  Date  :  02/25/86 
Number  of  Records  :  44 


Field  :  #MARK  LOGIC 

Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH I J KLMNOP 
Picture  :  (default) 


Field  :  ENTRY  NUM 

Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDSFGH IJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  STATUS  3TR  25 

Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 
Picture  :  "%25r" 

I  _ 

Field  :  PRINCIPL  STR  20 

Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "%20r" 


Field  :  SPONSOR  STR  40 

Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGHIJKLMN0P 
Picture  :  "%40r" 


Field  :  PROPOSAL  STR  130 
Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  A3CDEFGH IJKLMNOP 
Picture  :  n<il30r" 


Field  :  PERIOD  STR  20 

Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "%20r " 


L3: 


Field  :  ESTIMATE  MUM 
Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  ABCDEFGH I J KLMNOP 
Picture  :  " Sddddddd. dd" 


Field  :  DEPTIC  NUM 

Read  Access  :  ABCDEFGH I J KLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  " Sddddd.dd" 


Field  ■:  MIPR#  STR  15 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "%15r" 


Field  :  REF*  STR  25 

Read  Access  :  ABCDEFGH I J  KLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "%25r" 


Field  :  AUTH  NUM 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "Sddddddd.dd" 


Field  s  COSTCODE  STR  5 
Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "%5r" 


Field  :  EXPIRE  NUM 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  ICRECD  NUM 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "Sddddd.dd" 


Field  :  REMARKS  STR  50 

Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "%50rn 


Field  :  STAFFLBR  NUM 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "$ddddd.dd" 


Field  :  ASAPPRO  NUM 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  :  " Sddddd.dd" 


Field  :  DOCS  STR  15 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  s  "%15r" 


Field  :  SEGMENT  STR  5 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  :  "%6r" 


Field  :  SERIALS  NUM 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  :  "dddd-dddd" 


Taole  name  :  IN 
File  name  :  IN 
Read  Access  :  A. 
Write  Access  :  A. 
Creation  Date 
Modification  Date 
Number  of  Records 


INVENTOR 
INVENTOR. ITB 

A . 

A . 

12/13/85 
12/18/35 
0 


LOGIC 


Read  Access  :  A.... 
Write  Access  :  A.... 
Picture  :  (default) 


Field  :  PA4 
Read  Access 
Write  Access 
Picture  :  "Si 


Field  :  VENDOR 
Read  Access  : 
Write  Access  : 
Picture  :  "%40r" 


Field  :  DESCRIPT 
Read  Access  :  A. 
Write  Access  :  A. 
Picture  :  "S50r" 


Field  :  SERIAL 4 
Read  Access  :  A. 
Write  Access  :  A. 
Picture  :  "%12r" 


Field  :  ?0# 

Read  Access  :  i 
Write  Access  :  t 
Picture  :  "%9r" 


Field  :  COST  NU: 

Read  Access  :  A . . 

Write  Access  :  A . 

Picture  :  "Sdddddd.dd" 
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M 
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Table  name 
File  name 
Read  Access 
Write  Access 


OPTAR 
OPTAR. IT3 
A3CDEFGHIJKLMN0P 
A3CDEFGH  I JXLMMOP 


Creation  Date  :  02/25/36 
Modification  Date  :  02/26/36 
Numoer  of  Records  :  2 


Field  :  # MARK  LOGIC 

Read  Access  :  A3CDEFGHIJXLMN0P 
Write  Access  :  A3CDEFGH I J XLMNOP 
Picture  :  (default) 


Field  :  ZMTRY  MUM 

Read  Access  :  A3CDEFGHIJXLMN0? 
Write  Access  :  ABCDEFGH IJXLMMOP 
Picture  :  "dd-dd-dd" 


Field  :  RECEIVED  MUM 
Read  Access  :  A3CDEFGHIJXLMM0P 
Write  Access  :  A3CDEFGH I JXLMMOP 
Picture  :  "dd-dd-dd" 


Field  :  AUTH  MUM 

Read  Access  :  ABCDEFGH I JXLMMOP 
Write  Access  :  A3CDEFGH I JXLMMOP 
Picture  :  "Sdddddd.dd" 


Field  :  TAUTH  MUM 

Read  Access  :  A3CDEFGH I JXLMMOP 
Write  Access  :  A3CDEFGH I JXLMMOP 
Picture  :  "Sdddddd.dd" 


Field  :  ACTUAL  MUM 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  :  "Sdddddd.dd" 


Field  :  TACTUAL  MUM 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  :  "Sdddddd.dd” 
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Table  name  :  OTHER 
File  name  :  OTHER. ITB 
Read  Access  :  A3CDEFGH IJKLMNOP 
‘.-/rite  Access  :  ABCDEFGHIJKLMNOP 
Creation  Date  :  02/25/36 

Modification  Date  :  02/25/36 

Numoer  of  Records  :  5 


Field  :  #MARK  LOGIC 

Read  Access  :  ABCDEFGHIJKLMNOP 
write  Access  s  A3CDEFGHIJKLMN0P 
Picture  :  (default) 


Field  :  ENTRY  NUM 

Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  STATUS  STR  25 

Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%25r" 


Field  :  EXPIRE  MUM 

Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  PRINCIPL  STR  20 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 
Picture  :  B<520r" 


Field  :  SPONSOR  STR  35 

Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 
Picture  :  "%35r" 


Field  :  PROPOSAL  STR  130 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%130r" 
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Field  :  COSTCODE  STR  5 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%5r" 


Field  :  AUTH  MUM 

Read  Access  :  ABCDEFGHIJKLMNOP 
write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  " Sdddddd.dd" 


Field  :  REMARKS  STR  50 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%50r" 


Table  name  :  PFUNDING 
File  name  :  PFUNDING. ITB 
Read  Access  :  A3CDEFGHIJKL:iN0P 
Write  Access  :  ABCDEFGH IJKLMNOP 
Creation  Date  :  02/27/86 

Modification  Date  :  02/27/36 

Numoer  of  Records  :  314 


Field  :  #MARK  LOGIC 

Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  A3CDEFGH IJKLMNOP 
Picture  :  (default) 


Field  :  ENTRY  NUM 

Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "dd-dd-dd” 


Field  :  LNAME  STR  25 

Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "%25r" 


Field  :  FNAME  STR  15 

Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "%15r" 


Field  :  FUNDFROM  NUM 
Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  A3CDSFGH IJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  FUNDTO  NUM 

Read  Access  :  A3CDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  DAYS  STR  5 

Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH IJKLMNOP 
Picture  :  "%5r" 


Field  :  COSTCODE  STR  5 
Read  Access  :  ABCDEFGHIJKL.INOP 
Write  Access  :  A3CDEFGHIJXL:IN0P 
Picture  :  "%5r" 


Field  :  AMOUNT  MUM 

Read  Access  :  ABCDEFGHIJXLilNOP 
write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "$ddddd.dd" 


Field  :  LABOR#  MUM 

Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  CODS  STR  3 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  :  "%3r" 


Field  :  HOURS  NUM 

Read  Acceso  •  A» 

Write  Access  :  A . 

Picture  :  "d" 


Field  :  RATE  MUM 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  :  " Sddd.dd" 


Field  :  HRSNX  NUM 

Read  Access  :  A . 

Write  Access  :  A . 

Picture  :  "id" 
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Table  name  :  PHISTORY 
File  name  :  PHISTORY. IT3 
Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Creation  Date  :  02/27/36 

Modification  Date  :  02/27/86 

NumQer  of  Records  :  27 


Field  :  #MARK  LOGIC 

Read  Access  :  A3CDEFGH I J KLMNOP 
’.frit  3  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  (default) 


Field  :  ENTRY  NUM 

Read  Access  :  A3CDEFGH I J KLMNOP 
Write  Access  :  A3CDSFGH IJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  LNAME  STR  25 

Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "%25r" 


Field  :  FNAME  STR  15 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "%15r " 


Field  :  D03  NUM 

Read  Access  :  A3CDEFGHIJXLMN0P 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  EFFECT IV  NUM 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  STATUS  STR  6 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "'Sor" 


Field  :  3ILLET?  STR  4 

Read  Access  :  A3CDEFGH I JKLMNOP 
Write  Access  :  A3CDEFGHIJKLMN0P 
Picture  :  n<54r" 


Field  :  JOBTITLE  STR  30 
Read  Access  :  ABCDEFGH I J XLMNOP 
Write  Access  :  A3CDEFGH I J XLMNOP 
Picture  :  "%30r" 


Field  :  2S  HUM 

Read  Access  :  ABCDEFGH I JKLMNOP 
write  Access  :  ABCDEFGH I JKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  NORXUNIT  STR  10 
Read  Access  :  A3CDEFGH IJKLMMOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "  %  1 0  r  " 


Field  :  SUPSRVSR  STR  25 
Read  Access  :  A3CDEFGH I J XLMMOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  nns25r" 


Field  :  PD=f  STR  5 

Read  Access  :  A3CDEFGH IJ XLMMOP 
Write  Access  :  ABCDEFGH I JKLMNOP 
Picture  :  noi5r" 


Field  :  SERIES  MUM 

Read  Access  :  ABCDEFGH I JKLMNOP 
Write  Access  :  A3CDEFGH I JKLMNOP 
Picture  :  "ddddd" 


Field  :  GRADE 
Read  Access  : 
Write  Access  : 
Picture  :  "dd" 


MUM 

ABCDEFGH I JKLMNOP 
ABCDEFGH I JKLMNOP 


Field  :  STEP  MUM 

Read  Access  :  A3CDEFGH IJKL21N0P 
Write  Access  :  ABCDEFGH IJXLMMOP 
Picture  :  "dd" 


Field  :  SALARY  MUM 

Read  Access  :  A3CDEFGH IJXLMMOP 
Write  Access  :  ABCDEFGH IJXLMMOP 
Picture  :  "Sddddd.dd" 


Field  :  HRSWK  MUM 

Read  Access  :  ABCDEFGH IJXLMMOP 
Write  Access  :  ABCDEFGH IJXLMMOP 
Picture  :  "dd" 


Field  :  EXPIRE  MUM 

Read  Access  :  A3 CDEFGH IJXLMMOP 
Write  Access  :  ABCDEFGH IJXLMMOP 
Picture  :  "dd-dd-dd" 


Field  :  REMARKS  STR  100 
Read  Access  :  ABCDEFGH IJXLMMOP 
Write  Access  :  A3 CDEFGH IJXLMMOP 
Picture  :  "3100r" 


Field  :  RATE 

Virtual  field  :  (((SALARY  /  2087)  *  3 
Read  Access  :  A3CDEFGH IJXLMMOP 
Picture  :  "Sddd.dd” 


*  1.30000) ) ) 
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Table  name  :  PURCHASE 
File  name  :  PURCHASE. IT3 
Read  Access  :  A3CDEFGH IJXLMNOP 
//rite  Access  :  A3CDEFGH IJXLMNOP 
Creation  Date  :  02/11/36 

Modification  Date  :  02/23/36 

Humber  of  Records  :  258 


Field  :  #MARK  LOGIC 

Read  Access  :  A3CDEFGHIJXLMN0P 
//rite  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  (default) 


Field  :  ENTRY  NUM 

Read  Access  :  A3CDEFGH IJXLMNOP 
/rite  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  DOC*  STR  10 

Read  Access  :  A3CDEFGH IJXLMNOP 
//rite  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "%10r" 


Field  :  COSTCODE  STR  5 
Read  Access  :  A3CDEFGH IJXLMNOP 
//rite  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "l>5r " 


Field  :  VENDOR  STR  40 

Read  Access  :  A3CDEFGH IJXLMNOP 
■/rite  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  ,,oi40r " 


Field  :  RESCRIPT  STR  50 
Read  Access  :  A3CDEFGH IJXLMNOP 
//rite  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  " ^50  r " 


Field  :  STOCK*  STR  20 

Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  n,i20r" 
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Field  :  ESTIMATE  MUM 
Read  Access  :  A3CDEFGH IJXLMMOP 
Write  Access  :  A3CDEFGHIJXLMM0P 
Picture  :  "$ddddd.dd" 


Field  :  PRIORITY  MUM 
Read  Access  :  A3CDEFGHIJKLMM0P 
Write  Access  :  A3CDEFGHIJXLMM0P 
Picture  :  "dd" 


Field  :  ROD  MUM 

Read  Access  :  ABCDEFGHIJXLMNOP 
write  Access  :  A3CDEFGH IJXLMMOP 
Picture  :  "dd-dd-dd" 


Field  :  CODE  3TR  3 

Read  Access  :  A3CDEFGHIJXLMM0P 
Write  Access  :  A3CDEFGH IJXLMMOP 
Picture  :  "33r" 


Field  :  REQUESTR  STR  25 
Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  A3CDEFGH IJXLMMOP 
Picture  :  "%25r" 


Field  :  PO*  STR  9 

Read  Access  :  A3CDEFGH IJXLMMOP 
Write  Access  :  A3CDEFGH IJXLMMOP 
Picture  :  ''39rn 


Field  :  RECEIVED  MUM 
Read  Access  :  A3CDEFGH IJXLMMOP 
Write  Access  :  A3CDEFGHIJXLMM0P 
Picture  :  "dd-dd-dd" 


Field  :  FIRM  MUM 

Read  Access  :  A3CDEFGH IJXLMMOP 
Write  Access  :  A3CDEFGHIJXLMM0P 
Picture  :  "$ddddd.dd" 


Field  :  SERIAL#  STR  12 
Read  Access  :  ABCDEFGH I JKLMNOP 
'.'/rite  Access  :  ABCDEFGH  I JKLMNOP 
Picture  :  "%12r" 


Field  :  PA#  STR  17 

Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH I JKLMNOP 
Picture  :  "%17r" 


Field  :  ISSUE  STR  25 

Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH I JKLMNOP 
Picture  :  "%25r" 


Field  :  LOCATION  STR  7 
Read  Access  :  ABCDEFGH IJKLMNOP 
Write  Access  :  ABCDEFGH  I  JXLMIJOP 
Picture  :  "%7r" 


Field  :  REMARKS  STR  50 

Read  Access  :  ABCDEFGH I JKLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "%50r" 


Field  :  QTY 

Read  Access  :  A.... 

Write  Access  :  A.... 


STR  3 


Table  name  :  TVLEXP 
File  name  :  TVLEXP. IT3 
Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH I  JXLMNOP 


Creation  Date 
Modification  Date 
Number  of  Records 


02/28/95 

02/23/36 
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Field  :  SMARK  LOGIC 

Read  Access  :  A3CDEFGH I JXLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  (default) 


Field  :  DATEDEP  MUM 

Read  Access  :  A3CDEFGM IJXLMNOP 
Write  Access  :  A3CDEFGH I  JXLMNOP 
Picture  :  ”dd-dd-dd" 


Field  :  REQUESTR  STR  20 
Read  Access  :  A3CDEFGH I JXLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "%20r" 


Field  :  LOCATION  STR  25 
Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  A3CDSFGH IJXLMNOP 
Picture  :  "%25r" 


Field  :  CODS  STR  3 

Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "33r" 


Field  :  ESTIMATE  MUM 
Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "Sdddd.dd" 


Field  :  COSTCODE  STR  5 
Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "%5r" 
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Field  :  DOC#  STR  10 

Read  Access  :  A3CDEFGHIJXLMN0P 
'.■/rite  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "%10r" 


Field  :  ADVANCE  NUil 

Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "?ddd.dd" 


Field  :  DATERET  NUM 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  CLAIM  NUM 

Read  Access  :  ABCDEFGH IJXLMNOP 
Write  Access  :  A3CDEFGH IJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  j  FIRM  NUM 

Read  Access  :  A3CDEFGH IJXLMNOP 
Write  Access  :  ABCDEFGH IJXLMNOP 
Picture  :  "$ddddd.dd" 
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